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;, AB9TRACT 



THE RKSE/RKei DATA REI.XABXI.XTY PRQSRAM J| 0CIZ9NE0 PRZHARXLY 
AS AN ACCERTANCB TEST TO VERXFT OZIK DATA TRANlFIRI HITHXN 
THE DX»K 8Y8TIH, 

THE "ACCEPT MODE" OP ORERATXON VERXPXEI THE CARAiXLXTY 
OF TRANSFERRINS A TOTAL J X lB(f} SITS OF DATA TO AND 
FROH EACH XNOXVXOUAU DISK DRXVC ON THE OXfK SYSTEM, 

THE "MANUAL INTERVENTION MODE" IS AVAXUSLE AS A HARDMARE 
0EBU66IN6 AID TO ALLON THE OFE«ATOR TO SELECT DATA PATTERNS, 
TRANSFER LENBTHS, AND ADDRESSING, 

(NOTE! LOCATION B CONTAINS REVSXON LEVEL (IN ASCII) OF 

PR06RAM ON PROGRAM LOAD), 



i« RESTRICTIONS 



THE RKSL CONTROL.WMXCH CAN CONTROL UP TO B ORIVIB.MZLL NOT 
RUN WITH THE ONSE BUS ADAPTER, THE REASON FOR THIS STATEMENT 
IS THAT THE RKtL CONTROL USES XOTB FOR EXTINOIO DRXVIB 4*7 

WHICH IS NOT AVAILABLE ON THE t^NSE, 



ill HARDWARE 



A, PDP-S/A, S/E, S/F, OR S/M COMPUTER OR OTMIR FAMILY OF S 
COMPATIBLE COMPUTER WITH NE6CESSARY DWSE BUB ADAPTER, 

B, AT LEAST 4K OF READ/WRITE MEMORY, AT LEAST BK OF MEMORY 
IS NECESSARY FOR OPERATION OF THE CONSOLE PACKABE. 

C, A8R«33 TELETYPE OR EQUIVALENT 

D, RKSE OR RKSL DISK CONTROL 

E, RKBSJ OR RKiSF DISK DRIVE (S). 

F, FORMATTED 22BB BPI-U SECTOR PACKCB), 

NOTEI THE RKB9F DISK ONXVE IS CONBXOIRIO AB THO BfPARATE 
UNITS, WHEN ANSWERXNB AU BUiSTXOMB TNI BIPARATIt MZVBS 
MUST BE SPECIPIEO, DBKBt, OBRtt, OBKIffi ETC. 



S»i PROGRAM STORAGE 



THE PROGRAM OCCUPIES OR UTZLXIIB LOCATtOM •••• TO 
LOCATION 7577 OF FIELD B, ALL IKTENOEO MIHORV LOCATIONS. 
IF AVAILABLE, ARE UTILIZED FORTESTZNB. 



If! PRELIMINARY PROGRAMS 



THX8 P«05RAM RtQUXRES A FORMATTED CARTRIDGE ON ALU OKIVES 
TO BE TESTED. 

AUL BASIC AND EXTENDED MEMORY UIA6N08TICS SHOULD BE 
RUN PRIOR TO RUNNIN6 THIS PROGNAM. 

RK6E CONTROUI RUN THfe RK8E OlSKUESS CONTROL TEST AND 
THE RKSE/RK8L DISK FORMATTER IF THIS 
DIAGNOSTIC FAILS TO OPERATE PROPERLY. 

RK8L CONTROLI RUN THe RK8L INSTRUCTION TEST AND TMK 
RKBE/RKBL FORMATTER IF THIS DIAGNOSTIC 
FAILS TO OPERATE PROPERLY. 

2.4 EXECUTION TIME 

THE PROGRAM EXECUTION TIME (I.fe, PASSING 3 X IBlf) BITS OF 
DATA ON A DISK DRIVE) » IS APROX, 4 HOURS PER DISK ORlVt ON 
A «K MEMORY SYSTEM OR APROX, 3.5 HOURS PER DISK DRIVE ON 
SYSTEMS WITH EXTENDED MEMORY, 

3, 8MXTCH REGISTER SETTINGS 



• • 



SMRBll LOOP ON MRITE SEQUENCE, 

SNRHl LOOP ON READ SEQUENCE, 

SWRZtl INHIBIT ALL ERHOR TYPEOUTS 

SWR3»l TYPE "STATUS-CUMPLETE- REPORT, 

8WR«fl PROGRAM STOP OH HALT, 

SWR5ii DRIVE DISCONNECT AFTER PASS COMPLETION, 

SWRSii PERFORM ONLY "UVERLAP SEEKS", 00 NOT 

EXECUTE DATA BHEAK8, 

«t OPERATOR ANO/OR PROGRAM ACTION 
4.1 STANDARD TEST PROCEDURE 

A. START AS SPECIFIED THROUGH OUT THIS DOCUMENTATION 

IS KEY CLEAR AND THEN KEY CONTINUE ON PDP8/E, PDP»/M, 
AND PDPS/F COMPUTERS, ' 

B, LOAD THE PROGRAM INTO MEMORY FIELD USING THE STANDARD 
BINARY LOADER TECHNIQUE, 

C, IF IT IS DESIRED TO CHANGE THE lOT CODES WITHIN THE 
PROGRAM, FOLLOW THE PROCEDUME IN SECTION 4,b, 

D. RUN THE ACCEPTANCE MODE OF DATA RELIABILITY WITH ALL 
DRIVES AND MEMORY AVAILABLE BY FOLLOWING THE PROCEDURE 



XN StCTIQN 4.4. 

E, THE MANUAL INTERVENriON HOOfc, SECTION 4.5f HAY BE USED 
FOR TROUBLE SHOOTINIi, JF DE9IRED. 

F, IF POSSIBLE 8WR4il SMOULO ALWAYS BE USED TO 8T0R THk 
PROGRAM, 

6, IF THE PROGRAM MAS llEEN STOKPEO DUE TO 8NR4«U THE 
PROGRAM CAN BE RESTARTED, AND THE INITIAL STARTUP 
QUESTIONS BYPASSEDi BY USING 8205 AS THE RESTART 
ADDRESS. 

H. FOR THE ABSOLUTE LOCATIONS UF ALL KNOWN HALTS IN THIS 
PROGRAM, ACCESS PAGE l«2i OF THE PROGRAM LISTING, 

4.2 RK05J DRIVE CARTRIDGE nOUNTING PROCEDURE 

THE FOLLOWING IS THE CORRECT CARTRIDGE MOUNTING PROCEDURE 
FOR THE RK05J DISK DRIVE, ANY DEVIATION ENCOUNTERED DURING 
THIS PROCEDURE WILL BE CONSIDERED AN ERROR CONDITION. 

A. SET SWITCH LABELED "RUN/LOAD" TO THE "LOAD" POSITION. 

B. TURN AC POWER TO DISK DRIVE ON, 

C. VERIFY THAT THE LIGHT LABELED "PWR" IS ON. 

D. WAIT FOR THE LIGHT LABELED "LOAD" TO COME ON. 

E. VERIFY THAT THE LIGHTS LABELED "ROY", "ON CYL", "FAULT", 
"WT", AND "RD" ARE OFF. 

F. OPEN ACCESS DOOR. 
6, INSERT CARTRIDGE. 
H, CLOSE ACCESS DOOR. 

I. SET SWITCH LABELED "RUN/LOAD" TO THE "RUN" POSITION, 

J. WAIT FOR THE LIGHTS LABELED "ROY" AND "ON CYL" TO COME ON, 

K, TOGGLE SWITCH LABELtO "WT PRQT" AND VERIFY THAT THE LIGHT 
LABELED "WT PROT" GOES ON AND OFF. 

L. TOGGLE SWITCH LABELED "WT P«OT" UNTIL THE LIGHT LABfeLED 
"WT PROT" IS OFF. 

M. VERIFY THAT LIGHTS LABELED "FAULT", "WT", "RD", AND "LOAD" 
ARE OFF, 

4.3 RK05F DRIVE SETUP PROCEDURE 

THE FOLLOWING IS THE CORRECT StTUP PROCEDURE 



FOR THE RK05F DISK DRIVE, ANY UgVIATION ENCOUNTERED UURINB 
THIS RROCEDURE WILL SE CONSIDEKfD AN ERROR CONDITION. 

A. SET SWITCH LABELED '"RUN/LOAU" TO THE "tOAO" ROSUXON, 

B. TURN AC POWER ON, 

C. VERIFY THAT I.I6MT LABELED "KWR" 18 ON, 

0. WAIT FOR L18HT LABELED "LOAD" TO COME ON, 

E. VERIFY THAT LI6MT8 LABELED "RDY% "ON CYL% "FAULT", 
"WT", AND "RD" ARE OFF, u , r gi. , , 

F, SET SWITCH LABELED "RUN/LOAU" TO THE "RUN™ POSITION, 

B, WAIT FOR LI8HT8 LABllLEO "RDT" anQ -ON C¥L" TO COME ON, 

H, TOGSLE SWITCH LABELED "WT PKQT" AND VERIFY THAT THE LIBHT 
LABELED -WT PROT" SUES ON AND OFF, 

^* 1555'"!-!*'"'^" LABELt-D "WT PHOT" UNTIL LIGHT LABELfeD "WT PROT- 
wDE« OFF, 

J, VERIFY THAT LISHT8 LABELED "FAULT", "WT", «H0", ANo "i OAD" 
ARE OFF, 

«.« RK8E/RK8L DATA RELIABILITY (ACCEPT MQDE) 

*• I!t5L?!il'*^ *'-'• ""J^^B TO BE TESTED USING THE RKiSj DRIVE 
CARTRIDGE MOUNTING PROCEOURt SECTION ^,^ OR THE RKBSF 
DRIVE PROCEDURE IN SECTION 0,3, 

B, SET SWITCH LABELED "RUN/LOAD" TO THE "LOAD" POSITION ON 
ALL DRIVES NOT BEINli TESTED. "Oi'iUN un 

^' !!!!J!^ ^"*^ *^ ^°^^** " °'^' ^^ **.L DRIVES NOT BEING 
TESTED, 

D. SET THE SWITCH REGISTER TO 0200 ANiD PRESS LOAD ADPRKSS. 

E, SET THE SWITCH REGISTER TO 00(9(9 ANO PRESS START, 

^* I2!r2''!''*!2'* "*^ ^^^ ^^^^'^ ^^ ^T " DESIRED TO HAVE THE 

JIS?!*!*Si^?I!*I"^^'' DISCONNECT EACH DISK DRIVE AS EACH MAKE 
THEIR PASS COMPLETION, CNOTfcl IF SWRS.B, ALL DISK 0HIVE8 WILL 
CONTINUE TO RUN AFTER THEIR PASS COMPLETION) 

6. THE TTY WILL PRINT THE FOLLWWINS PROeRAH NAME ANO QUESTION, 

RK8E/RK8L DATA RELIABILITY 
EXTENDED R/W MftMORY (i-TJf 

THE OPERATOR SHOULD THEN TY^E THE AMOUNT OF EXTENUfO READ/ 
WRITE MEMORY BANKS NUMBERED SEOUENCIALLY FROM 8ANK B. A3 
INDICATED BY THE TTY QUESTION, ' 

H, THE TTY WILL PRINT fHE FOLLUi^lNB QUESTIONCS;, AgKiNy THfc 



DESIRED DliK DRIVE(t) TO BE USED ZN TESTING. 

EXERCISE OISK0T 
EXERCISE DISK17 
EXERCISE OISKiT 
EXERCISE 0ISK3T 
EXERCISE 0ISK4f 
EXERCISE DZSK9T 
EXERCISE DZSKfeT 
EXERCISE 0ZSK7T 

FOR THE QUESTIONCS) ABOVE, TYPB Y FOR YES* IF IT IS DESIRED 
TO TEST THE DISK DRIVE IN QUESTION, OTHERNISE, TYPE N FOR 
NO. 

I. THE TTY WILL RRINT THE FOUlUWINB QUESTION. 

ACCEPT MODET 

THE OPERATOR SHOULD THEN TYPE Y FOR YES TO HUN THE ACCEPTANCE 
MODE OF OPERATION. 

J, THE TTY WILL PRINT THE FOILUMINB QUESTION. 

ARE YOU SUREY 

IF THE OPERATOR IS CERTAIN UF THE AMOUNT OF MEMORY, THE 
DISK DRIVECS) SELECTED, AND THE MODE OF OPERATION, TYPE 
Y FOR YES. TYPING N FOR NO WRL RESULT IN A REPEAT OF 
ALL MESSAGES AND QUESTIONS ENCOUNTERED THUS FAR. 

K, THE PROGRAM SHOULD START TESTING THE DISK DRIVE(S) AND 
MEMORY SELECTED. 

L. THE "STATUS-COMPLETE" TYPEOUT SHOULD OCCUR UPON PASS 
COMPLETION QF EACH UISK DRIVE, ALL OTHER TYPE0UT8 QK 
HALTS MILL BE CONSIDERED AS AN ERROR CONDITION, SEE SECTION 
5.5 FOR "STATUS-COMPLETE" TYPEOUT. 

M. A SUCCESSFUL PASS COMPLETE ON A DISK DRIVE MILL BE CON- 
SIDERED AS NO "HARD" ERRORS AND NO MORE THAN ONE (U 
"SOFT" ERROR PEK PASS COMPLtTE, 

N. IF ANY ERRORS DO OCCUR, THE OPERATOR SHOULD ACCESS SEC- 
TION S IN THIS DOCUMENTATION, 

4.5 RK6E/RK6L DATA RELIBILITY (MANUAL INTERVENTION MODE) 

THE MANUAL INTERVENTION MODE IS AVAILABLE AS A TROUBLE 
SHOOTING AID AND SHOULD ONLY Bfc USED FOR SUCH PURPOSESf 
IF DESIRED. 

A, MAKE READY ALL DISK DRIVES TO BE TESTED USING THE RK89J 
DRIVE CARTRIDGE MOUNTING PROCEDURE SETION 4.2. OR THE 
RKBSF DRIVE PROCEDURE SECTION 4.3. 

B, SET 8MITCH LABELED "RUN/LOAD" TO THE "LOAD" POSITION ON 



AIL DRIVES NOT SEIN(> TESTEOt 

C, VERIFY THAT AC POWEH 18 ON, ON ALU DRIVES NOT BEIN6 
TESTED. 

D, SET THE SWITCH REBUTER TO Id200 AND PRESS LUAD AODRiiSS. 

E, SET THE SWITCH REBI9TER TO 10000 AND PRESS START, 

F, THE TTY WILL PRINT THE FOLLOWING PROGRAM NAME AND QUESTION, 

RKSE/RK8L DATA RELIABILITY 
EXTENDED R/W MfeMORY C0-7J? 

THE OPERATOR SHOULD THEN TYPE THE AMOUNT OF EXTENUEU READ/ 
WRITE MEMORY BANKS NUMBERED SEOUENCIALLY FROM BANK M, AS 
INDICATED BY THE TTY QUESTIUN, 

G, THE TTY WILL PRINT THE FOLLUWINB OUESTIONCS), ASKINij THE 
DESIRED DISK DRIVECS) TO BE USED IN TESTING, 

EXERCISE DI8K07 
EXERCISE DISK17 
EXERCISE DISK2T 
EXERCISE DISKS? 
EXERCISE DISK4T 
EXERCISE DISKS? 
EXERCISE DISK6Y 
EXERCISE DISK77 

FOR THE OUESTIONCS) ABOVE, TYPE Y FOR YES, IF IT IS DESIRED 
TO TEST THE DISK DRIVE IN QUESTION, OTHERWISE, TYPE N FOR 
NO, 

H, THE TTY WILL PRINT THE FOLLOWING QUESTION, 
ACCEPT MODE? 

THE OPERATOR SHOULD THEN TYPE N FOR NO TO RUN THE MANUAL 
INTERVENTION MODE OF OPERATION, 

I. THE TTY WILL THEN PKINT THE FOLLOWING QUESTION, ASKING 

IF THE OPERATOR DESIRES TO SELECT A CONSTANT MEMORY FIELD, 
RATHER THAN THE NORMAL RANDOM FIELD SELECTION, 

FIELD? --^^ 

IF THE OPERATOR DESIRES TO SELECT A CONSTANT FIELD, 
TYPE Y FOR YES, OTHtRWISE, lYPE N F0(? NO, IF Y WAS TYPEO THE 
TTY WILL SPACE OUT UNCE AND WAIT FOR THE OPERATOR TU TYPE 
THE DESIRED FIELD IN OCTAL 10-T), 

J, THE TTY WILL PRINT THE FOLLUWING QUESTION, ASKING IK THE 
rlV^l^^ DESIRES TO SELECT A CONSTANT TRACK, RATHER THAN 
THE NORMAL RANDOM TKACK SELtCTION, 

TRACK? 



IF THE OPeR*TOR 0E8iRE8 TO »ELECT A CONSTANT TRACK, TYPE Y 
FOR YE8, OTHERWISE, N FOR NO, IF Y WAS TYPEO, THE TTY WILL 
SPACE OUT ONCE AND WAIT FOR THE OPERATOR TO INPUT THE 
OESIREO TRACK AUDREttS (0e0eu«US37} , 

K, THE TTY WILL PRINT THE FOLLUWXNB QUESTION, A8KIN8 IF THE 

OPERATOR DESIRES TO SELECT HALF BLOCK OR FULL BLOCK TRANSFERS, 
RATHER THAN THE NORMAL RANDUM SELECTION, 

BLOCK LENGTH7 

IF THE OPERATOR DESiRES TO CHANCE THE BLOCK LENGTH, TYPE Y 
FOR YES, OTHERWISE, N FOR NU, IF Y WAS TYPED THE TTY 
WILL SPACE OUT ONCE AND WAH FOR THE OPERATOR TO TYPE 
THE BLOCK LENGTH DESIRED (0*256 WORD BLOCK OR UliS WORD 
BLOCK), 

L, THE TTY WILL PRINT THE FOLLOWING QUESTION, ASKING IF THK 
OPERATOR DESIRES TO SELECT A CONSTANT NUMBER OF SECTORS 
TO BE TRANSFERED, RATHER THAN THE NORMAL RANDOM SECTOR 
SELECTION. 

EXTRA SECTORS? 

IF THE OPERATOR 0ESXRE8 TO SELECT A CONSTANT AMOUNT OF 
SECTORS, TYPE Y FOR YES, OTHERWISE, N FOR NO, IF Y WAS TYPED 
THE TTY WILL SPACE OUT ONCE, AND WAIT FOR THE OPEKATOR TO 
TYPE IN THE EXTRA SECTORS DESIRED (00-17). INOTEI IF THE FIELD 
AND THE BLOCK LENGTH PREVIOUSLY SELECTED WAS 0, THE AMOUNT 
OF EXTRA SECTORS WILL BE LIMITED TO 07, OTHERWISE THE MAX* 
IMUM AMOUNT IS LIMITED TO I/,) 

M, THE TTY WILL PRINT THE FOLLOWING QUESTION, ASKING IF THfc 
OPERATOR DESIRES TO SELECT A DATA PATTERN, RATHER THAN 
NORMAL RANDOM DATA SELECTION, 

OATAf 

IF THE OPERATOR DESIRES TO SELECT A DATA PATTERN, TYPE 
Y FOR YE8, OTHERWISE, N FOR NO, IF Y WAS TYPED, THE TTY 
WILL 00 A "CRLF" ANO WAIT FUR THE OPERATOR TO TYPE JN M 
OCTAL DATA WORDS TO BE USED IN TESTING, 

N, THE TTY WILL PRINT THE FOLLOWING QUESTION, 

ARE YOU SUREf 

IF THE OPERATOR IS CERTAIN OF THE INFORMATION SELECTED, 
TYPE Y FOR YES, TYPING N FQH NO WILL RESULT IN A REPEAT OF 
ALL MESSAGES AND QUESTIONS ENCOUNTERED THUS FAR, 

P, THE PROGRAM SHOULD START EXECUTING THE OPERATIONS SELECTED, 

R, IF ERRORS ARE ENCOUNTERED, ACCESS SECTION 5 IN THIS 
DOCUMENTATION, 

4,6 CHANGE PROGRAM DEVICE iOT CODES 



THE PROSRAM NORMALLY RECOGNIZES DEVICE lOT C0D6 XTflX. TO 
CHANGE THE DEVICE lOT CODES WITHIN THE PROGRAMI 

A, SET THE SWITCH REGISTER TO 0204 AND PRESS LOAD AODRtSS, 

8. SET THE SWITCH REGISTER TO 10000, SET SWITCH REGI8TEK BUS 
5-8 TO THE DESIRED DEVICE lOT CODE, AND PRESS START. 

'• Jr"5gr:s';js ?j^fc 5;;?r ''' '''"' "' ""• ^"^'^ ^^^ 

D, PRESSING KEY CONTINUE WILL START THE PROGRAM AT 

t2S}In!!,J5S? ^'" SECTIONS «.« OR 4.5 POR OPERATION 
INSTRUCTIONS}* 

5, ERRORS 

5.1 USEFUL INFORMATION 

ALU STATUS ERRORS WILL BE REPOHTED AS STATUS ERRORS. ALL 
DATA ERRORS WILL BE REI»ORTED AS DISK DATA ERRORS, 

WHEN DATA IS BEING READ OFF THt DISK AND A CRC ERROR 
SfSruI'fJ!;! '•;°"*'^ ''^^ ''^''°'*T THE ERROR Ss A r?!5 
?JJ nfr^'^JSJAoI^M'*;'"!*" '**'•'• ^^^** CHECK THE DATA READ 
IS 0?Jk oSfJ "roRS. "'"' '"" ^"=' '*'•'■ " "SNORTED 

5.2 ERROR HALTS 

ERROR HALTS FOR WHICH THERE ARt NO ERROR TYPEOUTS ARt 
LISTED AND DEFINED AS FOLLOWS, 

*I5STP MASTER ERROR HALT FOR ALL OF THE 

FOLLOWING ERROR STOPS, WHEN THE 
COMPUTER MALTS THE AC REGISTER 
WILL INDICATE THE PC OF THE 
FAILING ERROR STOP, 

INTERl NO DISK INTERRUPT 

CRHLT0 SKIP TRAP FOR lOT "DLSC" 

ERHLT2 SKIP TKAP FOR lOT "OCLR" 

E'»HLT3 SKIP TKAP FOR lOT "DLAG" 

ERHLT5 SKIP TRAP FOR lOT "DRST" 

ERHLTb 8KIR TRAP FOR lOT "DLDC" 

8*0HLT CHECKSUM FAILED BUT WORD-BY-WOKD 

COMPARE WORKED 



N008KS NO DISKS AVAILABLE TO RUN 

FLOMLT PROGRAM WILL ONLY RUN IN FIELD 

POR THE ABSOLUTE LOCATIONS OP THE HALTS LISTED ABOVE, 

ACCESS PAGE 1-22 OP THfe PROGRAn LISTING. 



5,3 ERROR TYPEOUTS 



WHEN AN ERROR 0CCURRE5 THE PROURAH WILL PRINT AN 
"ERROR HEADER" WHICH WILL SPECIPT THE PARTICULAR TYPfc 
OP ERROR POUND AT THE TIME DP THE FAILURE, 

POSSIBLE "ERROR HEADERS" ARE AS FOLLOWS, 

MRITE STATUS EHROR 
READ STATUS ERHOR 
DISK DATA ERROR 
RECALIBRATE STATUS ERRUR 

AFTER THE "ERROR HRAOEK" MENTIUNEO ABOVE IS TYPED, THE 
PROGRAM WILL PRINT THE FOLLOWING ERROR INFORMATION 
FOUND AT THE TIME OF THE FAILURE, PERTAINING TO THE 
FAILURE, POSSIBLE TYPEOUTS ARE AS FOLLOMS, 

PCI PROGRAM LOCATIUN OF THt ACTUAL FAILUREt 

STI CONTENTS OF THE STATUS REGISTER, 

EXI EXTENDED DRIVE BIT 

CM! SOFTWARE COMMAND REGISTER, 

lAl INITIAL SOFTWARE DISK ADDRESS REGISTER OR THE 
CYLINDER, SURFACE, AND SECTOR BITS. 

DAI FINAL SOFTWARE DISK ADDRESS REGISTER OR THE 
CYLINDER, SURFACE, AND SECTOR BITS, 

CAI SOFTWARE INITIAL CURRENT ADDRESS 

WCI SOFTWARE INITIAL WORD COUNT 

FWI SOFTWARE FINAL WORD COUNT 

ASl SECTOR IN ERROR ON THE PARTICULAR CYLINDER 
AND SURFACE IN QUESTION, 

WAI WORD ADDRESS WITHIN THt SECTOR IN ERROR 

AOI BREAK ADDRESS UF DATA BREAK IN COMPUTER. 

DGl EXPECTED DATA 

DBl DATA FOUND DURING DATA BREAK, 



5,4 ERROR RECOVERY AND ERRUR DISCONNECT 

WHEN A READ, WRITE, OR DISK DATA ERROR OCCURRESCSEE 
SECTION 5, J), THE PROSKAM WILL TRY TO REPEAT THE FAILING 
SEQUENCE FOUR C«) TIME*. If THfe ERROR HAS OCCURRED FUUH 
C4) TIMES SXMUITAINIOUSLY, THE ERROR WILL BE CONSIDERED 
AS A NON-RECOVERABLE ERROR, THfe "ERROR HEADER" WILL BE 
CHANCED TO INDICATE "NQN-RECOVfeRABLE" ERROR, ANOTHER 
DISK ADDRESS WILL BE SELECTED FOR TESTING, IF 
A "SOFT" ERROR SHOULD OCCUR ON A TRACK, THE PROGRAM WILL 
RETRY THE READ SEQUENCE (64) TIMES BEFORE SELECTING 
ANOTHER TRACK FOR TESTING. (NOTEiTHIS 64 RETRYS ON "SOFT" 
ERRORS WILL BE TERMINATED ON A "HARD" ERROR), 

POSSIBLE NON-RECOVERALBLE ERROR HEADERS ARE AS FOLLOWS. 

NON*RECOVERABLfe READ STATUS ERROR 
NON.RECOVERABLfe WRITE 8TATUS ERROR 
NON*RECOVERABLfe DISK DATA ERROR 

IF A NON-RECOVERABLE READ OR WHITE ERROR SHOULD OCCUR, 
THE DISK IN QUESTION WILL THEN BE RECALIBRATED (RESTORED TO 
CYLINDER B). IF THE RECALIBRATE SIQUENCE FAILSi THE 
DISK DRIVE IN ERROR WIUL BE DISCONNECTED BY THE PROGHAM 
AND NO LONGER BE TESTED. 

THE FOLLOWING "DISCONNECT" AND "STATUS-COMPLETE" TYPEOUTS 
SHOULD OCCUR, 

RECALIBRATE ERROR DISCUNNECTl 
DISK X DISC0NNECTED4 
DSK HARD SOFT COMP 

X BBJB BBte 0001 

X 0240 5670 0001 

IF ALL DISKS ON THE SYSTEM HAVE BEEN DISCONNECTED DO 
TO RECALIBRATE ERRORS THE FOLLOWING TYPEOUT WILL OCCUR 
AND THE PROGRAM WILL HALT. 

DISK SYSTEM SHUT DOWN, NO DISKS TO RUNl 

5,S STATUS-COMPLETE TYPEOUT AND PA»S COMPLETE DISCONNECT 

ALL ERRORS AND PASS COMPLETES ARE TALLIED BY THE PROGRAM 

THE FOLLOWING IS AN EXAMPLE OF THE "STATUS-COMPLETE" 
TYPEOUT THAT WILL OCCUR WHEN SWR3«1 INDICATING TYPE THIS 
REPORT, A PASS COHPLETfe OCCURRfcS ON A DRIVE UNDER TEST, OR 
A DRIVE IS OISCONNECTEU DO TO A RECALIBRATE ERROR, 

DSK HARD SOFT COMP 

X XXXX XXXX XXXX 

X XXXX XXXX XXXX 

X XXXX XXXX XXXX 



X xxxx xxxx xxxx 

THE TYPEOUT AS MENTIONED ABOVE IS DESCRIBED AS FOLLOWS, 

DSK DISK DNIVE IN QUESTION, 

HARD ALL ERRORS OTHltR THAN THAT DEPINEO AS 

A SOFT ERROR. 

80FT A READ CRC STATUS ERROR WITH BAD DATA PER 

TRAN8FIR WITH KECOVERY POSSIBLE WITHIN FOUR C«) 
RETRYS, CNOTEl FOUR (4) CONSECUTIVE RETRYS WILL 
BE CONSIDERED AS A NON-RECOVERABLE ERROR OR A 
"HARD" ERROR), 

COMP PASS COMPLETES, «1 X 1BC9J BITS* 

IF SWR5-1 INDICATING "DISCONNECT ON PASS COMPLETION", AND 

A DISK DRIVE UNDER TEST MAKES A PASS COMPLETION, THE 
FOLLOWING TYPEOUT WILL OCCUR AND THE DRIVE WILL BE 
DISCONNECTED. 

DISK X PASS COMPLETEl 
DISK X DISCONNKCTEDi 
DSK HARD SOFT COMP 

X XXXX XXXX XXXX 

X XXXX XXXX XXXX 

IF SWRS>e INDICATING DON'T "DISCONNECT ON PASS COMPLETION", 
AND A DISK DRIVE UNDER TEST MAKES A PASS COMPLETION, THE 
FOLLOWING TYPEOUT WILL OCCUR AND THE DRIVE WILL CONTINUE 
TO RUN. 

DISK X PASS COMPLETEl 
DSK HARD SOFT COMP 

X XXXX XXXX XXXX 

X XXXX XXXX XXXX 

IF 8WRS>1 AND ALL DRIVES HAVE MADE THEIR PASS COMPLETION 
AND HAVE BEEN DISCONNECTED, THfe FOLLOWING TYPEOUT WILL 
OCCUR AND THE COMPUTER WILL HALT, 

DISK SYSTEM SHUT DOWN, NO DISKS TO RUNi 
5, ft TYPICAL ERROR TYPEOUTS 

THE FOLLOWING IS AN EXAMPLE OF AN "ERROR HEADER" AND 
ERROR TYPEOUT THAT COULD HAVE OCCURRED ON A WRITE STATUS 
ERROR, (NOTE CHC IN TMt STATUS INDICATOR "STI"J 

WRITE STATUS ERROR 

PCI2371 8TU01I9 EXIBBBI CMUSeB IAl00ei OAieeeiJ 

CAi3ft00 wcireeu Fwieeeu 

THE FOLLOWING IS AN EXAMPLE OF AN ERROR TYPEOUT THAT CUULO 
HAVE OCCURRED IF THE STATUS REGISTER FAILED ON A SEEK 
ONLY FUNCTION, 



SEEK STATUS ERKOR 

pci2e76 8Ti40e2 ExieBBi CMiseee OAueer 

THE F0I.1.0WINS IS A TYPiCAU EXAMPLE OF AN "ERROH HEAOfeR" 
AND ERROR TYPEQUT THAT COULD HAVE OCCURRED ON A DISK 
DATA ERROR. (NOTEl ADDITION DATA ERRORS IN BUFFER) 

DISK DATA ERROK 

PCil674 STtaettf EXI0001 CM11432 lAlIOSS OAlUZI 

CAI0001 WClS0eu FMi740l0 

ASt00|9 WAI000r ADI0010 0610537 DBI0S36 

ASieOlS MAI007r AOI0100 DCI7777 DB|777« 

A8I0016 NAI000e ADl040i D6I6167 DBl616b 



*. RESTRICTIONS 



ALL DISK DRIVES SHOULD BE SET TO THE LOAD POSITION 
THAT ARE NOT BEING TESTED. 

TROUBLE SHOOTING INFORMATION 
lOT FUNCTION 



6740 DLSC LOAD StCTOR COUNTER AND EXTENDED 

DRIVE BIT FOR RK8L. 

AC 



0"3 LOAD THE DESIRED AHOUNT OF SECTORS 

TO BE TRANSFERRED WITH THE fllNARY 
VALUE IN AC BITS 0«3. 

4 EXTENDED DRIVE BIT FOR DRIVES 4-7 

S741 D8KP "SKIP" SKIP IF TRANSFER DONE FLAG 

OR ERROR FLAG IS SET. 

4742 DCLR "CLEAR" FUNCTION IS REGULATED BY 

AC BITS 10 AND U. THE AC IS THEN 
CLEARED. 



AC10 ACU 



CLEAR THE AC AND STATUS REGISTER, 

1 CLEAR THE AC* CONTROLi AND HAJUR 

REGISTERS. THIS INSTRUCTION WILL 
STOP THE CONTROL EVEN IF IT IS 
WRITlNtt A HEADER, THIS IS THE UNLY 
INSTRUCTION THAT CLEARS MAINTENANCE 
MODE, 



6743 DI.A6 



AC 



CLEAR ACi RECAIIBRATC DISK OHIVE, 
AND CUKAR ITATUS REGISTER. 

"LOAD UISK ADDRESS AND GO" l.gAU THE 
DISK CYLINDER, SURFACE, AND SECTOR 
FROM THE AC, CLEAR THE AC, AND DO 
THE COMMAND IN THE COMMAND REGISTER, 



0-6 

7 
8-11 

6744 DLCA 

AC 

0<-U 

6745 DRST 



CYLINDER 

SURFACt diUPPER} (e*LUMER) 

SECTOR 

"LOAD CURRENT ADDRESS" LOAD TME 
CURRENT ADDRESS FROM AC, THE AC 
IS THEN CLEARED, 



CURRENT ADDRESS 

"READ »TATU8" CLEAR THE AC AND 
READ THE CONTENTS OF THE STATUS 
REGISTER INTO THE AC, 



AC 




1 
2 
3 

4 
5 

6 

7 

S 

9 

10 

U 



6746 OLOC 



AC 



TRANSFtR DONE 

READY TO SEEK, READ, OR WRITE, 

NOT USED 

SEEK FAIL 

DISK FILE READY 

CONTROL BUSY ERROR 

TIME OUT ERROR 

MRITE LOCK ERROR 

CRC ERHQK 

DATA RATE ERROR 

DRIVE STATUS ERROR 

CYLINDER ADDRESS ERROR 

"LOAD COMMAND" LOAD THE COMMAND 
REGISTER FROM AC, CLEAR THE AC, 
AND CLEAR THE STATUS REGISTER, 



0-2i0 

0»2it 
0»2«2 
0.2*3 

0*2i4 



READ DATA 
READ ALL 
MRITE LOCK 
SEEK ONLY 
WRITE DATA 






WRITI ALL 
NOT UHO 

NOT uieo 

ENABLE INTERRUPT 

ENABLE SET TRANfPER DONE ON BEEK OONE 

HALP BLOCK IIB MORQB 

EXTENDED HEMORY ADDRESS 

EXTENDED HEMORY ADDRESS 

EXTENDED MEMORY ADDRESS 

UNIT SELECT 

UNIT SELECT 

EXTENDED CYLINDER ADDRESS 



6747 OMAN 



"MAINTENANCE lOT" LOAD THE 
MAINTENANCE RE6ISTER PROM THE AC, THE 
PUNCTIUN IS REGULATED BY THE AC BITS. 
HAINTENANCE MODE CAN ONLY BE CLEARED 
BY DCLH "CLEAR CONTROL". 



AC 



e 

I 

2 



I 
4 
S 



a 
f 

IB 
U 



ENTER MAINTENANCE MODE 

ENABLE SHIPT TO LOWER SUPPER 

AC BIT IBf CRC RE6ISTEN, AND THE 

LOMER UATA SUPPER ARE CONNECTED AS 

A SHIPT RE6ISTER. AC BIT IB DATA 

SHIPTS TO THE CRC* THE CRC SHIPTS 

TO THE LONER DATA BUPPER. 

BHZPT COMMAND RE6I8TER TO THE LOWER 

DATA SUPPER, 

•HIPT THE SURPACE AND SECTOR REGISTER 

TO THE LOWER DATA BUPPER. 

SHIPT AC IB DATA TO THE UPPER 

DATA BUPPER. THE UPPER BUPPER 

SHOULD SINK IN THE SILO WHEN 

PULL. 

ONE SINOLE CYCLE BREAK REQUEST. 

DIRECTION IS REGULATED BY PUNCTION 

IN THE COMMAND REGISTER. 

CLEAR AC THEN READ THE LOWER 

DATA BUFFER TO THE AC, 

NOT USED. 

NOT USED. 

USED AS DATA WITH OTHER BITS IN 

Tm MAINTENANCE MODE, 

NOT USED 



«■ 



PROGRAM DESCRIPTION (ACCEPT MODE] 



THE PQUL0WIN6 IS BRIEF DESCRIPTION OP THE STEPS TAKEN BY 
THE PROGRAM WHEN RUNNING THE ACCEPT MODE, 



A. A RANDOM FIELD IS GENERATED! IP FIELD GENERATED IS A NON- 
EXISTING FIELD, THE MAXIMUM FIELD AVAILABLE WILL BE USED. 



B, A RANDOM SLQCK tENfiTH IS GENgHATEO C12a OR 256 MORD 
SECTORS). 

C, A RANDOM AMOUNT OF SEQUENCIAt. SECTORS TO TRANSFER IS 
GENERATED. IF THE FiELD PREVJOUSUV SELECTED MAS AN 
EXTENDED FIELD OR IF HALF BLOCK TRANSFERS WERE SELECTED 
(128 WORD SECTORS), THE AMOUNT OF SECTORS WILL BE LIMITED 
TO 17(8), IF THE FIELD SELECTED WAS FIELD B AND IF FULL 
BLOCK TRANSFERS WERE SELECTED (2S6 WORD SECTORS), THE AMOUNT 
OF SECTORS WILL BE LIMITED TO 7(8). 

D, A RANDOM STARTING SECTOR WILL BE GENERATED, THE RaNUOM AMOUNT 
OF EXTRA SECTORS PREVIOUSLY GENERATED WILL BE ADDED TO THIS 
STARTING SECTOR, DETERMININtt THE ACTUAL LENGTH OF THE DATA 
TRANSFER, IF THE STARTING SECTOR WAS U AND THE AMOUNT OF 
EXTRA SECTORS WAS 6, SECTOR* 14, 15, U, 17, 00, (fli, AND 

02 MILL BE USED FOR TRANSFENING DATA. 

E, AN INITIAL SOFTWARE WORD COUNT WILL BE CALCULATED. 

F, AN INITIAL RANDOM CURRENT AUDRE8S WILL BE GENERATED, IF THE 
FIELD PREVIOUSLY GENERATED WAS FIELD 0, THE CURRENT ADD- 
RESS WILL BE LIMITED WITHIN THE END OF THE PROGRAM *H9da 
LOCATIONS. 

G, THE BUFFER SELECTED WILL BE FILLED WITH RANDOM DATA, 
CHECKSUMMED, AND THE CHECKSUM SAVED. (NOTEl BUFFER IS 
DEPENDENT ON FIELD, WORD COUNT, BLOCK LENGTH, AND CURRENT 
ADDRESS PREVIOUSLY SELECTEDt) 

H, THE PROGRAM WILL THEN POLE THE DISK DRIVES, DRIVE 

SELECTION IS SEGUENTIAL, THAT IS DI8KB, DI5K1, DiaK2, ETC. 

I. DATA WILL BE WRITTEN ON THE SELECTED DISK DRIVE TO COMPLETE 
THE SEEK OPERATION USING THE RANDOM PARAMETERS GENERATED 
ABOVE, AS DATA IS WRITTEN, A BACK GROUND PROGRAM WILL CLEAR 
THE BUFFER AREA ALREADY WRITTEN ON THE DISK. 

J. WHEN THE WRITE AND CLEAR IS COMPLETE, DATA WILL BE READ 

OFF THE CURRENT DRIVE INTO THE BUFFER AREA. AS DATA IS READ, 
A BACK GROUND PROGRAM WILL CHECKSUM THE BUFFER INFORMATION 
ALREADY READ OFF THE DISK. 

K, WHEN THE READ AND CHECKSUM IS COMPLETE, THE CHECKSUM FOUND 
WILL BE COMPARED TO THE CHECKSUM SAVED PREVIOUS TO THE 
WRITE OPERATION, IF CHECKSUMS 00 NOT COMPARE OR IF A CRC 
ERROR HAS OCCURRED, A WORD BY WORD COMPARE WILL BE MADE TO 
DETERMINE AND TYPE OUT THE BAD DATA FOUND. 

L. STEPS A.H WILL BE REPEATED AND THE DRIVE POLE WILL BE 
STARTED AT THE CURRENT DRIVE ♦!, 

M, FOR ALL POSSIBLE ERRORS, SEE SECTION 5 IN THIS DOCUMENT. 
CONSOLE PACKAGE ADDENDUM 



9,1, DESCRIPTION 



THE CONSOLE PACKAGE HAS BEEN AUDED TO THIS OIABNOSTIC TO ALLOW 

THE PROGRAM TO RUN WITH NO HARUWAR6 SWITCH REGISTER ANU TO 

HAVE COMMUNICATIONS WITH THE DIAGNOSTIC VIA A TERMINAL. THE 

DIAGNOSTIC CAN BE RUN IN TWO MODES WITH THE CONSOLE 

PACKAGE , n RUNNINtt WITH THE CONSOLE PACKAGE ACTIVt • 

THIS ALLOWS THE OPERATUR CONTROL OF THE DIAGNOSTIC TmruUGH 

THE TERMINAL. THE DIAGNOSTIC WILL ASK FOR THE VALUE OF THE P8EUD0 

SWITCH REGISTER, BEFORE CONTINUiNG WITH EXECUTION OF THt 

DIAGNOSTIC. ALL ERRORS AND PASS COMPLETES WILL BE PRINTED AT 

THE TERMINAL. NO HALTS WILL BE EXECUTED, 

2) CONSOLE PACKAGE NOT ACTIVE-lMIS WILL RESULT IN TM6 

NORMAL STANDALONE OPERATION OF THE PROGRAM AS OISCRIBEO IN 

SECTIONS I THROUGH S OF THIS DOCUMENT, 



9,2 RESTRICTIONS 



1) RUNNINC THt CONSOLE PACKAGE REQUIRES THAT TMfc 
PSEUDO SWITCH REGISTER BE USED, 

2) ONCE RUNNING THE CONSOLE PACKAGE NONACTIVE AND 

NOW DESIRE TO RUN IT ACTIVE, ONE MUST RELOAD THE DIABNOSTIC 
AND INITILIZE FOR A ACTIVE CONSOLE PACKAGE. 



9,3 INITIALIZATION 



FOR A ACTIVE CONSOLE PACKAGE 

l.) SET LOCATION 21 BITiBiB TO INDICATE USE PSEUOO SWITCH 
REGISTER, 

2.) SET LOCATION 22 BIT3»l TO INDICATE CONSOLE PACKAGE ACTIVE, 
FOR A NON ACTIVE CONSOLE PACKAGE 



i«) SET LOCATION 21 BITB>1 TO INDICATE NOT TO USE HSEUDO 
SWITCH REGISTER, BUT TU USE HARDWARE SWITCHES, 

2,3 SET LOCATION 22 BIT3«0 TO INDICATE CONSOLE PAC^ASE NOT 
ACTIVE, 

?«« CONTROL CHARACTERS 

CONTROL CHARACTERS ARE USED TO GIVE THE OPERATOR THE 



ABILITY TO PERFORH THE POLUOWINS fyNCTIONS, 
NOTEI THE PROGRAM KILL RESPONU TO THE CONTROL 
CHARACTER IN FIVE (9) SECONDS UR tfcSS. 



CONTROL C 



CONTROL R 



CONTROL E 



CONTROL L 



CONTROL 



THIS WILL START THE LOADER THAT IS 
IN LOCATION 7*108, 



THIS WIUW RESTART THE PR06RAM AND 
REASK THE SNITCH RE6ISTER QUESTION AS 
DESCRIBED IN SETION 9.S, 



THIS MILL CONTINUE THE PR06RAM FROH 
AN ERROR IF ALLONEO BY THE DIA6N0STIC 
OR FROM A WAITINS STATEMENT, 



THIS MILL SMITCH THE TERMINAL MESSA6IS 

FROM THE DISPLAY TO A LINE PRINTER. 

TO RESTORE THE MESSAGES ON THE TERMINAL 

CONTROL L MUST BE TYPED AGAIN. IF 

NO PRINTER IS AVAIBLE AND CONTROL L 

IS TYPED THE RESULT MILL BE THAT THE 

CONSOLE PACKAGE MILL MAIT FOR CONTROL C OR R, 

THE CONTROL L MILL OUTPUT TO THE LINE 

PRINTER AND THI PROGRAM WILL 

ATTEMPT TO CONTINUE AS IF A CONTROL E 

WAS TYPED IN, 



THIS MILL ALLOW THE ABILITY TO CHANGE 
THE SMITCH REGISTER DURING PROGRAM 
OPERATION, TYPING THIS CHARACTER WILL RESULT 
IN AN INTERIGATION OF TH6 SMITCH REGISTER 
QUESTION AS DESCRIBED IN SECTION 9.6. 



9.5 



CONTROL S 



CONTROL Q 



WAITING MESSAGE 



THIS MILL STOP PROGRAM EXECTUION AND MAIT IN A 
LOOP FOR A CONTINUE, THE ONLY WAY TO CONTINUE 
WILL BE TO TYPE A CONTROL Q, R OR C , 
THIS IS A NONPRINTING CHARACTER, 



THIS IS TO CONTINUE A PROGRAM AFTER A CONTROL 
S IS TYPED, THIS IS A NONPRINTING CHARACTER, 



THE WAITING MESSAGE IS USED TO ALLOW THE OPERATOR TIME 

TO MAKE A DECISION AS TO WHAT CONTROL CHARACTER 

TO TYPE, THIS MESSAGE MAY APPEAR AT THE END 

OF PASS MESSAGE IF THE HALT ON PASS BIT IS SET, THE CONTROL 

CHARACTERS MAY NOW BE USED TO KgRFORM THE NEEDED FUNCTION, 



THE WAITIN8 MfSSACfc MAY BE PRINTEO AFTER A ERROR MESttASE 
If THE HALT ON EKROR BIT It BET, HERE ABAIN THE CONTROU 
CHARACTERS MAY BE UBEO. 

THE WAITINS HESBACE MAT BE PRINTED IF OPERATOR INTERVENTION 
IB REQUIRED, 

9(6 SMITCH RECIBTER ME88AGK 



THIS MESSAGE IS USED TO SETUP THE PSEUOO SWITCH REClSTfeR 
BEFORE PROGRAM EXECUTIUN TAKES PUACE.THE SWITCH RESISTftR 

i!,^S^"^ ^^^^ ^"^ ^°"''^" CHARACTER IS ENTERED OR A CARRIAGE 
RETURN IS TYPED 



SRaeaee 4000 

UNDER SCORING INDICATES OPERATOR RESPONSE 



9,7 END OF PASS 



THE NORMAL PASS COMPLETE TYPEOUT AS DESCRIBED IN SECTION 
5,5 IS USED, 



9,0 ERRORS 



THE STANDARD ERROR REPURTS AS yESCRIBED IN SECTION 5 
OF THIS DOCUMENT WILL BE USED, 

9,9 SWITCH REGISTER SETTINGS 

THE STANDARD SWITCH SETTINGS Ad DESCRIBED IN SECTION 3 
OF THIS DOCUMENT W|LL bE USED, 



9,ia PARAMETER CONTROL WORDS 



THE CONSOLE PACKAGE USES THE LOCATIONS 20 8} Zi FOR THE 

FOLLOWING PURPOSES, 

LOCATION i0 

PSEUDO SWITCH REGISTER 

LOCATION 21 

HARDWARE IDENTIFIER I 

LOCATION 22 



HARDWARE I0£NT1PIER i 


LOCATION 0821 


BIT 


OCTAU VALUfc 


••• 


4000 




2000 




1000 




400 




200 




100 




40 



FUNCTION MHEN 

USE PSfcUDO SMITCHES 

NO 0PT40N I 

NO OPTION 2 

NO 6A SIMULATOR 

NO OPTION SIMULATOR 

NOT ON BA XOR 

NOT PDP8-E TYPE CPU 



FUNCTION MHEN 1 

USE MAKDMANE SMITCHES 
HAS OPTION 1 
MAS OPTION 2 
HAS SA SIMULATOR 
HAS OPTION SIMULATOR 
ON SA XOR 
PDPS-E TYPE CPU 



'til 



T-U 

LOCATION 0022 

BIT OCTAL VALUfc 



SA MEMURY SIZE EX, IKaUO 

2K«ei 
TKaBb 



12KB91 



FUNCTION MHEN 



FUNCTION MHEN 1 



4000 


NOT ON ACTSA LINE 


ON ACT SA LINE 


1 2000 


NOT ON ACT 8E LINE 


ON ACT 8E LINE 


2 1000 


NOT YET DEFINED 




S 400 


OEACTIVE CONSOLE 
PACKASb 


ACTIVE CONSOLE 
PACKAGE 


LOCATION CHANGES 







THE FOLLOWING FIELD 1 LOCATIONS CAN BE CHANGED TO HfeET 
THE SPECIFIC NEED FOR MODIFICATION OF THE DIAGNOSTIC. 



024S 



1037 



IS THE LOCATION FOR THE VALUE OF THE 
NUMBER OF PROCHAM PASSES NEED TO 
PRINT THE END OF PASS MESSAGE, 

IS THE LOCATION SET FOR THE NUMBER OF 

FILLER CHARACTERS AFTER A CRLF SET TO FOUR C«) 



10. 



APT-S HOOKS 



19, I DESCRIPTION 

TWO INTERFACES HAVE BEKN PROVIUEO WHICH ALtOW THIS OIABNOSTIC 
TO RUN UNDER THE STANDARD APT-S SYSTEM. THESE INTERFACfeS AREI 

1. TIHINO INTERFACE 

2. ERROR INTERFACE 

EACH WILL BE EXLPAINEO IN DETAiL. 
IBtZ SETUP 



THE F0LL0WIN5 INFORMATION MUST BE INDICATED DURING 

THE INITIAL PROGRAM START UP, 

i, SINGLE OR MULTIPLE DRIVE TEttTlNG, 

2, DRIVE OR DRIVES TO 0E TESTEU, 

3. DIAGNOSTIC RUNNING UNDER APl-6, 

a, THE AMOUNT UP MEMORY IN IK INCREMENTS, 

IF SINGLE DRIVE TESTING BIT 5 OF ADDRESS 22 MUST BE SET 

TO A ONE (I) WITH BITS 6-U CONTAINING THE DRIVE TO BE TESTED. 

IF MULTIPLE DRIVES ARE TO BE DONE BIT MUST MUST BE SET TO A 

IV^L^ll *'*° ^" *•** CONTAINING THE HIGHEST NUMBER URIVE 

TO BE TESTED. WHEN MULTIPLE DRIVE TESTING ONLY A SPECIFIC 

NUMBER OF DRIVES CAN Bt INDICATED, THE PROGRAM ASSUMES THE DRIVES 

ARE TO BE DONE BEGINNING WITH ORIVE ZERO (B) AND FINISHING 

WITH THE HIGHEST DRIVE INDICATED, IF MULTIPLE DRIVES OTHER 

THAN CONSECUTIVELY NUMBERED DRIVES BEGINNING WITH DRIVE ZERO (0) 

ARE TO BE DONE, THEY MUST BE DUNE AS SINGLE DRIVES AND 

TESTED INDEPENDANTLY, 

THE PROGRAM ALLOWS DRIVES 0-7 TO BE SELECTED, USER SHOULD 
NOT EXCEED 0*3 DRIVES FOR THE HK8E CONTROL. 

BIT ZERO OF ADDRESS 22 MUST BE SET TO A ONE TO INDICATE 
THAT THE PROGRAM WILL NUN UNOEK APT-8, 

NOTEI IT SHOULD BE NOTED AT THIS TIME THAT WHILE RUNNING 
nIlPE%ir^:* I"^ HAROWAKE SWITCH REGISTER IS INOPERATIVE, 
ONLY THE HALT AND SINGLE STEP SWITCH WILL EFFECT THE PROGRAM 
RUN , 

AMOUNT OF MEMORY IN IK INCREMENTS BHOULO BE STORED IN BITS 
T-U OF LOCATION 21, AN ADDITION OF 1 TO THE NUMBER UF BITS 
IN 7-n INCREASES MEMORY SIZE BY JK, EX, 4K«SfSK-7 
REMEMBER TO RETAIN STATUS OF BITB WHEN MODIFYING LOCATION 21, 

APT-8 INTERFACESI 
10.3,1, TIMING 



APT-8 IS NOTIFIED OF PROGRAM RUN BETWEEN ,2 SEC 
AND 2,0 SEC ON A 1,2 MICROSECOND MEMORY CYCLE, THIS WILL ALLOW 
THE DIAGNOSTIC TO RUN WITHOUT CAUSING AN AFT-B TIMEOUT ERROR 
IF THE DIAGNOSTIC IS TO BE RUN ON ON THE SLOWER MQS MEMORY, 



le.S.I. ERRORS 



ONtY THE ORZVE IN ERRON 18 REPURTEO TO ART-S SYSTEMt 
SYSTEM. ERRORS WHICH CAUSE A RN06RAMME0 HALT CAUSE A TIMEOUT 
ERROR, IF A RR08RAMMED MAUT SHOULD OCCUR, THE ERROR RC WILL 
APPEAR IN THE AC ON THE DEVICE UNDER TEST, PR08RAMMEU HALTS 
ARE EXPLAINED EARLIER IN THIS UQCUMENT, 

XX, PROGRAM LISTIN6 



/RKSt/HK(L DtT« RELIASILITT PRUBflltMl MU.I6-DHRKC-H 



P«L>» Vl««« i3<FEB-T7 



9105 



PAGC I 



rtGEI 1024 



/RKtE/KKSL D«T« RfLItSKITV PROeRtMl HU-Bl-DMRKC-H 
/ 

/HAINgtC-0S-DHNKC>H.L 
/ 

/COFTRISHT HT«,l»''5,HT6,HT7 OXGIT«t eaUlP, CORP, 
/ 

/MAVNAKO, MASa. 01794 
/ 
0001 PIEUD 1 

/ 

/CONtOU «RC-V2-R0> CONtOLE PACKASE 
/ 

/THE PKOSRAH SHOULD CHECK FOR A CONTKQL CHARACTER FROM THE TERMINAL 
/EVERY FIVEC5] (ECONDI OR lOONIR, 

/LUCATION* THAI NEEC TO BE SET UP FON USINB THE CONSOLE PACKAGE. 

/CNTVAL IN XCBPASS THIS LOCATION UETERMINOS THE NUHBER OF 
/PROGRAM COMPLtTIONS THAT ARE NEEDED BEFORE THE PASS MESSAGE IS TYPED 
/THE VALUE SHOULD PUT THE PASS HESSASE OUT IN THE RANGE OF 1 TO S MINUTES. 
/THIS SHOULD St A POSITIVE NUNSER. 

/C8STRT THIS IS FOUND IN CNTRL ROUTINE CONTROL R PART 

/IT IS THE RETURN HHEN CONTROL R IS ENTERED (RESTART PROGRAM) 

/THE RtTURN JUMPS TO KDOSN NHICH CONTAINS CSSTRT SO PUT THE LABEL CSITRT 

/HHERE YOU WANT TO RESTART THE PROGRAM. 

/SETUPl IN XCStRR THIS IS THE MASK BIT FOR HALT ON ERROR 
/PLACE THE CORKECT BIT IN THIS LOCATION FOR HALTINB ON ERRORS. 

/SETUPS IN XCIPASS THIS IS THE MASK KOH MALT A END OF PASS. 

/THE CALL TABL^ IS A CONDITIONAL ASSEMHLY, 

/TO ASSEMBLE THE CALL REMOVE THE / BEFORE CONSOL«0. 

/IN COMBINING IHE CONSOL PACKAGE TO A UIAGNOSTIC. 

/THE CALL TABLt IS TO BE AT THE BEGINNING OF A PROGRAM. 





0000 


CONSOLI0 






6»»1 




PSKFl 






tktZ 




PCLFf 






»k»3 




P8KE> 






t6b4 




PSTBp 






btkS 




PSIEp 






S004 




GTF> 






7701 




ACL" 






6007 




CAP' 






7421 




MOL' 






7501 


/ 
• 20 

/ 

F18HR, 


MGA* 






0020 






0020 


0000 







0021 


4000 


PlOPl, 


4000 





/RKse/RKIL DATA RELIABILITY PRUGRAMI MU.BS>OHRKC>H 

0022 0000 FiaP2i 
/ 

IFOEF CONSOL < 



PALtD Vt42A t].FIB>7T 



*IBS 



PAGE l«l 



PABEI 002S 





4424 


CBPASSl 


JMS I 


0024 


0200 




XCSPAS 




4425 


CSCKStIF 


JMS I 


0025 


02S2 




XCSSW 




4426 


CSTTYIP 


JMS I 


002fc 


0272 




XCflTTY 




4427 


CSCNTR" 


JMS I 


0027 


0400 




XC8CNT 




4430 


CSPRNT" 


JMS I 


0030 


0303 




XCSPNT 




4431 


CdSKIT" 


JMS I 


0031 


0S96 




XCSPSN 




4432 


CS0CTA4 


JMS I 


0032 


1000 




XCSOCT 




4433 


CSCRLFl 


JMS I 


0031 


1023 




XCSCRL 




4434 


CSECHO* 


JMS I 


0034 


1063 




XCSECH 




4435 


CSTYPE" 


JMS I 


003S 


1077 




xeSTYP 




4436 


CSERR> 


JMS I 


003» 


1207 




XCSERR 




4437 


CSINQU* 


JMS I 


0037 


0635 




XCSINQ 




4440 


cacKPA* 


JMS I 


0040 


1041 




XCSCKP 




4441 


CSPAUS* 


JMS I 


0041 


0337 




XC6PAU 



/CS PASS COMPLETION ROUTINE 

/CHECK SN REG SETTING 

/FETCH CONSOL CHAR 

/CHECK FOR CONTROL CHAR 

/CS PRINT A BUFFER 

/SET UP PStUOO SN, REG 

/CDNVEKT TO ASCII AND PRINT 

/OO A CARKIBE RETURN LINE FEED 

/CHECK INPUT CHAR 

/CB PRINT ONE CHAR 

/CS ERROR HANDLER 

/LOOK FOR OPERATOR INTERVENTION 

/CHECK IF CONTROL CHAR 

/IF CONSOL PACKAGE RETURN CALL PLUS ONE 
/IF NOT USING CONSOL REPLACE CALL KITH 
/A HLT ANU THEN GO TO THE HALT 



/•2e 

/•2l 



/*ii 



/PSEUDU SalTCH REGISTER 

/MAKUWARE INDICATORS 

/||0I1»>USE FRONT PANEL SNITCH REGISTER 

/00e0>USE THE PSEUDO SNITCH REGISTER LOC.iB 

/SYSTEM CONFIGURATION 
/400>CONSOL PACKAGE SET ACTIVE 
/00^U>i;ONSULt PACKAGE SET DEACTIVE 

/RESEHVEO FOR FUTURE USE 



0200 >200 
/ 



/caPAss 



/RK(t/NK«L D«T« RCLItBXLXTr PRUSHtHI nU-ll«>DHI«KC>H 



CALIU VI<I2« J3.rEB»T7 



9105 



PASEI lait 



/TM1» 19 CALLEU »T THE END Of EACH PKQItRAPI CUMPLETION 

/THE VALUE 0F«« CNT»»U«« "ILL BE OETlFiMINED ST THE TIHE IT TAKIl 

/THE PKOORAM TU COMPLtTt THl» MANY CSPASI TO BE IN THE 1 TO « MINUTE 

/KANEE 

/ caPAS9>jM( xcaPAS 

/E>, or CALL CtPAH 

' HLT /HALT IP NON CONiOl PACKAEE 

/ JMP 8TART1 /CONTINUE RUNNING THU PROBRAH 

/RETURN TO LOCATION CALL PLU« ONE HlTH THE AOB If NON CONIOL PACKAGE AND HLT 

/IP CONTINUE TU RUN THEN RETURN TO CALL PLU92 AC>e 

/THE LOCATION »ETUP» IS THE MA»K BIT fUR THE HALT AT END OF PABB 

/CHECK THAT IT IB CORRECT FOR THE CURRENT PROGRAM 

/CALLB UBED BT XCBPA8 ARE CHKCLA>XCICRLF-XCBOCTA>XCaSW««CBPNT«>eBINO. 



eaae 


0000 


XCBPAS, 







BZBl 


T2B0 




CLA 




eZB2 


4777* 




JHB 


CHKCLA 


8283 


3212 




JMP 


DOPACK 


ZW 


477B' 




JHB 


CBSET 


ZiZi 


42k2 




JHB 


<C«SM 


I2B6 


03TS 




AND 


(400 


BMT 


7*40 




BZA CLA 




BIIB 


1600 




JMP I 


XCBPAS 


0211 


9230 




JMP 


CBBYl 


B212 


4232 


DOPACK, 


JMS 


CKCOUT 


B213 


9230 




JMP 


CBBVl 


B2U 


2290 




IBZ 


PABCNT 


B2IS 


4774' 




JMS 


XCdCRLF 


0216 


4503 




JMS 


XCBPNT 


B2tT 


0293 




MESPAS 




B22B 


1290 




TAO 


PABCNT 


•22t 


4773' 




JMS 


XCBOCTA 


■222 


4774' 




JHB 


XCBCRLF 


1223 


4776' 




JHB 


CBSET 


0224 


4262 




JMS 


XCBBW 


022S 


03TS 


BETUP2, 


AND 


(400 


022B 


7640 




BZA CLA 




022T 


4772' 




JMS 


XCBINB 


0210 


2200 


CBBYl, 


IBZ 


XCBPAB 


0231 


9600 




JHP I 


XCBPAS 


0232 


0000 


CKCOUT, 







0233 


1291 




TAD 


DOSET 


023« 


T640 




BZA CLA 




023S 


9242 




JMP 


NOBET 


023B 


1292 




TAD 


CNTVAL 


0237 


7040 




CMA 




0240 


3247 




OCA 


DOCNT 


0241 


2291 




IBZ 


DOBET 


0242 


2247 


NOBET, 


IBZ 


DOCNT 


0243 


9230 




JMP 


CBBYl 



/IB HQRD 22 BIT 3 ACTIVE CONSOLET 

/IB CLASSIC 

/GET REGISTERS, 

/DEACTIVE C0N80L CHECK BR SETTING 

/FOR HALT ON END OF CBPASS 

/!• HALT CONTINUE 

/SO TO MALT 

/CONTINUE ON RUNNING PROGRAM 

/CLASS CHECK CBPASS COUNT 

/CBPASS COUNT NOT DONE REDO PROGRAM 

/CBPASS COUNT DONE SET CBPASS COUNT 

/CBPKNT BUFFER 

/ 

/SET NUMBER 

/CONVERT IT TO ASCII 

/DO A CARRIAGE RETURN 

/GET REGISTERS. . 

/CHECK A HALT AT END OF CBPABS 

/MASK BIT 

/HALT •! NO SKIP CONTINUE iB 

/STOP PROGRAM IXECUTION-LOOK FOR INPUT 

/BUMP RETURN 



/CHECK IF SET UP NEEDED 
/■•BET UP CBPABS COUNT VALUE 
/liCfPASB COUNT VALUE OK 
/CBPASS COUNT VALUE ON 
/BET CUUNT VALUE FOR THIS PROG 
/SET TO NEGATIVE 
/STORE IN HERE 
/INDICATE VALUE BET UP 
/COUNT THE NUMBER OF PASSES 
/EXIT FOR ANOTHER PASS 



/RKBE/RKBL DATA RELIABILITY PRUGRAMI MU.0a-DMRKC-H 



0244 
0249 
0246 
0247 
0290 
0291 
02S2 
0293 
0294 
0299 
0296 
0297 
0260 
0261 



3291 
2232 
9632 

0000 
0000 
0000 
0000 

0410 
2213 

0310 
4040 
2001 
2323 

4000 



OCA 
IBZ 
JMP I 

DOCNT, 

PABCNT, 

DOSET, 

CNTVAL, 

MESPAS, TEXT 



DOSET 

CKCOUT 

CKCOUT 



■DHRKCH PASS 
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/SET TU C8PRNT CBPASS 
/BUMP RETURN FOR 
/CBPASS CBTYPE OUT 
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/CSCKSa 



/THIS ROUTINE LAN BE USED INPLACE OF A REAU THE SKITCMtS LAS 
/ROUTINE THAT "ILL CHECK WHERE TO READ THE »"'"■"" LAS. 
/CB BKJTCHES F"OM IE. FROM PANEL OR PSEUDO SBITCH REGISTER 
/THE SELECTION IS DETERMINED BY THE STATE OF BIT IN LOCATION 21. 



/CSCKSxa 
/EX, JMS 



JM8 XCBSK 
XCBSN 



/READ THE C8SKIT REGISTER 

/RETURN HITH THE CONTENTS OF SNITCH REGISTER 



/RETURN TO NEXT LOCATION FOLLOWING CALL WITH THE AC. TO VALUE OF CB8W1T SETTING 
/CALLB UBED ARE.XCBCKPA* 







xcssw. 







4T7 1 ' 




JMS XC6CKPA 








NOP 








TAD 21 








BPA CL« 








7614 








TAD 20 








JMP I XCSSN 



/GO CHECK THE IF ANY CONTRL 

/GET wu FUN INDICATOR 

/CHECK IF FROM PANEL 4000 

/DO LAI AND SKIP GET FROM PANEL WITH LAS 

/PSEUDU SWITCH 

/EXIT WITH STATUS BIT IN AC, 



/CBTTYI 

/This routine will look for a input torn the terhinal 

/AND REMOVE ANY PARITY BITS, THEN MAKE IT B BIT ASCI. 

/ CeTTYI" JHS XC8TTY 

/EX, JMS XCSTTYI /REAU CHAR FROM THE CONSDL DEVICE 

' /RE'URN TO CALL PLUS ONE AC CONTAINS THE CHAR 



/RK«t/RKaL DAT* KELItaiLITr FRUSRAHI MU>Be>OHRKC-H 



P«L1I» VUa* 23.rEB-77 



PABE t«« 



PABII Mil 



/CtkLS U8CD>N0NE« auT CeCHtR IB OFF KtliC *N0 IN ROUTINE C«LLEO XCSCCHO 







/ 
1 
XCBTTT, 


e 










KSF 










JMF 


.-» 








KRB 










«ND 


tlTT 








T«0 


(218 




S766' 




BO 


CBCHIR 




1766' 




TAD 


CBCHAR 








JMF I 


KCBTTY 



/LOOK rOR KETBOARD FLAB 

/SET CHAR 
/MASK roR 7 BITB 
/ADO THE EIGTH BIT 
/BTOKE IT 

/EXIT 



/CBPRNT 

/THIB ROUTINE "ILL TTFE THE CONTENT* OF THE C6 PRINT BUFFER. THE LOCATION 

/OF THE BUFFER KILL BE IN THE AODRB FOLLOHINB THE CALLi PRINTINB OF THE BUFFER 

/HILL BTOP HHEN A BB CHAR It DtTECTEU, CHARACTER* ARE PACKED 2 PER HORD. 

/ CaPRNT" JM8 XCBPNT 



/EX. 
/ 



JH* 
MEBSTT 



XCBPNT 



/CaPRNT THE CONTENTB OF THE FOLLOHINB BUFFER 
/LOCATION OF CBPRNT BUFFER 



/CBPRNT HILL UaE THE LOCATION FOLLORiNU THE CALL AB THE POINTER FOR THE 
/CBPRNT ROUTINt. RETURN TO CALL PLUB TMU WITH ACa B 

/CALLS UBEO ARE>XcaTrPE«XCaPNT 



e3B3 


B88B XCBPNT, 8 






eSB4 




CLA 


CLI. 




(IBS 




TAD 


I 


XCBPNT 


BIBB 




OCA 




PT*TOR 


BIB7 




laz 




XCBPNT 


8311 


17JB CBDOl, TAD 


I 


PTBTOR 


0311 




AND 




(7788 


B3U 




BNA 






B313 




JNP 


I 


XCBPNT 


B3U 




8HA 






(319 




CHL 






B31» 




lAC 






8317 




RTR 






B318 




RTR 






83(1 




RTR 






8322 


4TB4' 


JMS 




XCBTYPE 


8323 




TAD 


I 


PTBTOR 



/BET CBPRNT BUFFER* BTARTINB LOCATION 

/BTORE IN PTBTOR 

/BUHP RETURN 

/BET DATA HORD 

/HABR FOR LEFT BYTE 

/CHECK IF BB TERNINATE 

/EXIT 

/IB AC HINUB 

/HAKt CHAR A 388 AFTER ROTATE 

/HAKE CHAR A IBB AFTER ROTATE 



/PUT CHAR IN BITa ••11 HAKE 
/CBPRNT IT ON CONBOLE 
/BET DATA WORD 



IT a BIT ASCII 



/RKBE/RKBL DATA RELIABILITT PRUSRANI HU.RB-DHRKC'H 





83B3 


AND 


IBB77 




7«S8 


BNA 






S7B3 


JHP I 


XCBPNT 




13*2 


TAD 


(3748 




7388 


SHA 






13*1 


TAD 


(188 




13*8 


TAD 


(248 




«7*«' 


JH8 


XCBTYPE 




233* 


I*Z 


PTBTOR 




S31B 


JHP 


CBDOl 



8336 8888 



PTSTOR, 8 
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BIBS 



PABE 1>S 



PASei 88<« 



/HA»R FOR RIBHT BYTE 

/CHECK IF 88 TERMINATOR 

//EXIT 

/ADO FUDBE FACTOR TO DETERMINE IF 288 

/OR JBB I* TO BE ADD TO CHAR 

/ADD IBB 

/ADO IBB 

/C8TYPE ONLY BITB 4-11 

/BUMP POINTER FOR NEXT HORD 

/DO ASAIN 

/BTOH FOR CBPRNT BUFFER 



/CSPAUS 

/THI* ROUTINE HILL CHECK IF THE CONSUL PACKABE IS ACTIVE. IF ACTIVE 
/IT HILL RETURN TO CALL PLUS ONE AC» B. AND DO THAT INSTRUCTION, 
/IF TML CONSOL PACKABE IS NOT ACTIVE THE CALL HILL BE REPLACED 
/HITH A 7482 HALT AND THEN RETURN TO THE HALT, 



/ 

/ 

/ 

/EX, 

/ 

/ 

I 



CSPAUS* JMS XC*PAU 



JMS XCSPAUS 
ANYTHING 



/CHECK IF ON ACTIVE CONSOL IF NOT HALT HERE 
/RETURN HERE IF ON ACTIVE CONSOL 



/CALLS USED ARC-CHKCLA- 



8337 


8888 


XCSPAU. 8 




8348 


7388 


CLA CLL 




8341 


4777* 


JMS 


CHKCLA 


8342 


9398 


JHP 


CSD03 


8343 


7848 


CMA 




8344 


1337 


TAD 


XCSPAU 


8349 


3337 


OCA 


XCBPAU 


8346 


1337 


TAO 


(7482 


8347 


3737 


DCA I 


XCSPAU 


8398 


9737 


CSD03, JMP I 


XCSPAU 


0J5T 


7482 






23*8 


8248 






8361 


8188 






8362 


3748 






8363 


8877 






8364 


1877 






836; 


77BB 






8366 


1879 






8367 


8288 






8378 


8177 






8371 


1841 







/CHECK LOC 22 BIT 3 CONSOLE BIT 

/BO DO CONSOL FART RETURN CALL*1 

/DEACTIVE CONSOLE PACKAGE PUT HLT IN CALL 

/GET CORRECT RETURN ADDRS 

/SET UP RETURN 

/GET CUOE FOR HLT 

/PUT HALT JN CALL LOCATION 

/GO TO HALT OR RETURN TO NEXT LOCATION 



/RKte/RKtL 0<T< RELIiSlLITf PKUGRtN: HU.DB'DHRKC-H 



p«Li« V1II2* ii^rtB-rr 



p<ee >>k 



f«GEl ««M 



a37S 
B373 
e3T4 
B375 
03Tb 
aSTT 



B63S 

11923 

0624 
1200 
0400 



P«I>E 



/CBCNTK 

/TMI5 HOUTINE "ILL CHECK PO" THE PREIENCE OP CONTROL CHARACTERS 

/:r HILL CHECK FOR THE FOLLOHING CHAH fR-U-L-S 

/ CBCNTR" JHJ XC8CNT 



/E«, 


JMS 


XC6CNTR 


/ 


JHP 


ANTTHING 


/ 


JHP 


ANYTHINS 



/CHECK FOR CONTROL CHARACTER 

/LOC FOLLODING CALL 11 POR CONTINUING THE PROBRAH 

/LOC. 19 POR RETURN IP INHOOE SET AND NOT CNTRL CHAR 



/RETURN IS TO CALL PLUS ONE IF CONTINUE 

/RETURN IS TO CALL PLUS THO IP INHQDt SET AND NOT CONTROL CHAR 

/RETURN IS TO CALL PLUS THO IP INMOOt IS NOT SET AND NO 

/CUNTRUL CHAR ..THIS HILL PRINT THE CHARACTER AND A T 

/CLEAR THE AC ANO RETURN CALL**. 

>XC8TVPE-«CSLRLF>CSGET-UPAN0H>XcaTVI.XCBPSU> 



/SAVE THE AC 

/CHECK LOC, 22 BIT] POR CONSOLE BIT 

/ON ACTIVE CONSOLE 

/OEACTIVE CONSOLEGET AC POR RETURN 

/EXIT NOT UN ACTIVE CONSOLE 



/SAVE THE HQ 

/SET DISPLACKHENT INTO TABLE B 

/GET AUORS OP TABLE A 

/CONTAINS POINTER TO CONTROL CHAR 

/GET CONTROL CHAR PROM TABLE 

/CHECK POR A END OP TABLE 

/END OP TABLE NO CONTROL CHAR 

/COHPaKE CHAK TO CONTROL CHAR 

/B IP HATCH 

/MATCH 

/NO HATCH NOT END OP TABLE REDO 

/BURP INDEX POR EXIT HHEN CONTROL POUND 

/BUMP GETOAT POR COMPARE OP NEXT CNTRL CMAR. 

/CHECK IP PROGRAM EXPECTS CHAR 

/taCHAN EXPECTED Bi NO CHAR EXPECTED 

/CHAR EXPECTED 







/CALLS 

/ 

/ 

/ 

XCBCNT, 


USED 


ARC 


-CHKCLA< 


0400 


0000 


i 






0401 


3777' 




OCA 




ACSAVE 


0402 


4776' 




JHS 




CHKCLA 


0403 


9206 




JMP 




>*J 


0404 


1777' 




TAD 




ACSAVE 


04b; 


5600 




JMP 


I 


XCBCNT 


0406 


6004 




GTF 






0407 


3T7S' 




OCA 




PLSAVE 


0410 


7501 




HOA 






0411 


3774' 




OCA 




MBSAVE 


0412 


3295 




OCA 




INDEXA 


0413 


1297 




TAD 




XTABLA 


0414 


3296 




DCA 




GETDAT 


0415 


1696 


REDOA, 


TAD 


I 


GETDAT 


0416 


7450 




SNA 






0417 


9226 




JMP 




DONEA 


0420 


1773' 




TAO 




CSCHAR 


0421 


7650 




SNA 


CL« 




0422 


5243 




JMP 




GOITA 


0423 


2295 




ISZ 




INDEXA 


0424 


2256 




ISZ 




GETDAT 


042S 


5215 




JMP 




REODA 


0426 


1772- 


DONEA, 


TAD 




INMODE 


0427 


7640 




SZA 


CLA 




0430 


5240 




JMP 




EXITA 



/RKBE/RK8L DATA RELIA8ILIT7 PRUBRAMI MU-0a-DHRKC>H 



0431 


1773' 




TAO 


CSCHAR 


0432 


4771" 




JHS 


XCSTTPE 


0433 


1370 




TAD 


(277 


0434 


4771' 




JM8 


XCSTTPE 


0435 


4767' 




JHS 


XC'CRLP 


0436 


2200 




ISZ 


XCBCNT 


0437 


5600 




JMP I 


XCBCNT 


0440 


2200 


EXITA, 


ISZ 


XCBCNT 


0441 


1773' 




TAO 


CSCHAR 


0442 


5600 




JMP I 


XCBCNT 


0443 


1773' 


GOITA, 


TAD 


CSCHAR 


0444 


1366 




TAD 


(100 


0445 


3773' 




DCA 


CSCHAR 


0446 


1260 




TAD 


XTABLB 


0447 


1255 




TAO 


INUEXA 


0450 


3254 




DCA 


GOTOA 


0451 


1654 




TAO I 


GOTOA 


0452 


3254 




DCA 


GOTOA 


045] 


5654 




JHP I 


GOTOA 


0454 


0000 


GOTOA, 


0000 




0455 


0000 


INDEXA, 


0000 




0456 


0000 


GETDAT, 


0000 




0457 


0461 


XTABLA, 


TABLA 




0460 


0471 


XTABLB, 


TABLB 




0461 


7575 


TABLA, 


7575 




0462 


7564 




7564 




0463 


7557 




7557 




0464 


7556 




7556 




0465 


T555 




7555 




0466 


7573 




7573 




0467 


7574 




7574 




0470 


0000 




0000 




0471 


0551 


TABLB, 


CNTRLC 




0472 


0537 




CNTHLL 




0473 


0500 




CNTRLB 




0474 


0511 




CNTRLR 




0475 


0921 




CNTHLS 




0476 


0545 




CNTHLE 




0477 


0600 




CNTRLD 
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/GET CHAR> NOT CONTROL* NOT EXPECTED 
/CflPKNT CMAR 
/GET CODE POR "I" 



/BUMP HETURN 

/EXIT CALL*2 

/BUMP RETURN FOR MAIN PROGRAM CHECK OP CHAR 

/PUT CHAR IN AC, 

/EXIT 

/GET THE CONTENTS OP CHAR 

/ADO 100 TO FORM A GOOD ASCII CHARACTER 

/RESTORE COFFECT CHAR 

/GET START OP TABLE B 

/GET NUN F \ INTO TABLE 

/STORE IT 

/GET THE ROUTINE STARTTING ADDRESS 

/STORE IT IN HERE 

/GOTO CONTROL CHAR ROUTINE 

/ADD OF CNTRL ROUTINE TO EXECUTE 

/DISPLACEMENT INTO CNTRL TABLE 

/LOCATION DP AODRS OF CONTROL CHAR, 

/ADURS OP TABLEA 

/AODRS DP TABLES 

/CNTRL C BACK TO MONITOR 203 

/CNTRL L SRITCH ERROR PRINTTING DEVICE 214 

/CNTRL a START DISPLAYING CHAR, AGAIN 221 

/CNTRL R SACK TO BEGINNING OF PROGRAM 222 

/CNTRL S STOP SENDING CHAR TO BI8PLAY WAIT POR CNTRL Q 223 

/CNTRL E CONTINUE HITH PROGRAM 209 

/CONTROL D CHANGE SWITCH REGISTER ON PLY 
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/CUNIHUU a 

/START SENDING CHAR, TO THE DISPLAY 

/THIS HILL RETURN CONTROL TO CALL THAT HAS SET BY 

/TMt CALL FOR tONTROL S, 



0500 


3772' 


CNTRLB, 


DCA 


INHOOt 


0501 


1335 




TAD 


CBSETS 


0502 


7640 




SZA CL* 




0503 


5306 




JMP 


SYHETR 


0504 


4765' 




JHS 


Cai>tT 


0505 


5600 




JHP I 


XC6CNTH 


0506 


3335 


BYHETR, 


DCA 


C8SETS 


0507 


4765' 




JHS 


ca(>Er 


0510 


5736 




JHP I 


C6HETR 



/SET SUFT KLAG FOR UNEXPECTED CHAR 
/CHECK IP CONTROL S TYPED IN 

/CONTHUL S TYPED IN 

/NO CUNTRUL » TYPED PREVIOUSLY 

/LEAVE VIA CNTR ENTRY ADDRESS 

/CLEAR THE SUFT FLAG 

/KE6IUHE KtGISTEHS 

/EXIT TO AUDRE55 SET BY CONTROL S 



/RKBt/RKBL D«T» RELUBILITr PRUBR4MI nu.aa.DHRKC-H 



Ptsei »»3i 







/ 
/ 

/CONTRUL R 










/GO TO 


THE QUESTION CeSnIT 


esii 


3764' 


CNTHLR, 


i DCt 




TTYLPT 


0512 


3335 




DC< 




CB8ETS 


esi3 


3772* 




DC* 




INMOOE 


esu 


4763' 




JHS 




UPIROU 


051! 


3762" 


C8Br4, 


DC* 




CaSUST 


8516 


6283 




CIF 


CD^ 


8 


BS17 


5728 




JMP 


I 


XDOSW 


0520 


8288 


XOOSH, 

/ 


BSN 










/ 
/CONTROL 9 










/STOP JENOINC LMAR, TO DISPL»T 
/ 


8521 


1335 


/ 

CNTRLSi 


T<D 




caaETa 


8522 


7648 






CL* 




8523 


5327 








CBDOT 


8524 


7881 










8525 


1288 








KCflCNT 


8526 


3336 








CBRETR 


8527 


2335 


CaD07, 






CBBETB 


85)8 


4761* 








XCBTTYI 


8931 


4T6!' 








CBEET 


8532 


4288 








XCaCNTR 


8533 


7288 










8534 


5321 








CNTRLB 


8535 


8888 


C«aETS, 








8536 


8888 


CaRETR, 









/CLe»R THt TYPE rL«B SET TO TTY 
/CLt«H SOU KL«B POR CNTRL 8 

/PRINT THE " AND CaCHAR 
/CLEAR PLAli POR CNTRL D OR R 

/GO TO 40URS OP CaSHIT 

/DOSN IS LABEL FOR CSSWIT 0UE8TI0N 



UNTIL A -a IS RECEIVED 



/IPl DO NOT STORE IN CBRETR 

/OONT SET UP C8RETR 

/MAKE RETURN CALL PLUS 2 

/SET RETURN FOR TMIS CALL 

/STOKE IT MERE FOR USE BE CNTROL U 

/SET FLAG TO SAVE CALL 

/LOOK FOR THE INPUT 
/GEi REGISTERS 

/CHECK FOR THE CONTROL CHAR 

/IF NOT A CNTRL Q R C REA8K 



/ 

/SBITCM OUTPUT FROM ONE OUTPUT DEVICE TO ANDTHER- 
/CONSOLE AND THE PRINTER KITH DEVICE CDOE 66. 



THE TWO OUTPUTS ARE THE 



8537 
8548 

8541 
8542 

8543 
8544 


VilV 


CNTRLLi TAD 
CMA 
DCA 
JHS 
JHS 
JHP I 


TTYLPT 

TTYLPT 
UPAROW 
CSGET 

xcecNT 






/CONTROL E 

/CONTINUE RUNNING FROH 

/ 


8545 
8546 
8547 
8558 


4763- 
3762- 

4765' 
5688 


/ 

CNTRLE, JMS 
OCA 
JMS 
JMP I 

/ 

/CONTRUL C 


UPAROM 
CaSHBT 

CaSET 

xcacNT 



/GET PRESENT CSSHIT INDICATOR 

/COMPLtMtNT IT 

/STOR NEW CaSWIT 

/CSPKNT "• AND CHAR ON NEW DEVICE 

/ReaTOHE THE REGISTERS 

/EXIT 



A INQUIRE OR ERROR 



/PRINT THE CONTROL CHAR 
/CLEAR ENTRY FLAB, 
/SET THE REGISTERS 
/RETURN TO CALL PLUS ONE 



/RKSt/RKBL DATA RELIABILITY PRUGRAHI MU-8a>DHRKC«H 



8551 
8552 
8593 
8994 
8999 
8996 



8568 
8961 
8962 

8563 
8964 
8969 

8966 

8567 
8978 
8971 
8972 
8973 
8974 
8975 
8976 
8577 



3764' 
3762* 
47»3' 
6283 

6887 
9768 



7688 
8272 

8749 
8615 
1121 

8624 
8188 
1823 
8277 
1877 
1876 
1875 
1346 
1347 
1288 
1345 
8680 



/RETURN TO nONlTDR CONTROL C 
CNTRLC, OCA TTYLPT 

DCA caausT 

JHS UPAROW 

CDF CU 

CAP 
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/CLEAR THE LPT FLAG TO PRINT ON DISPLAY 

/CLEAR ENTRY FLAG. 

/CBPKNT A- AND LETTER IN CHAR 

/GO TO 8 FLO 

/CLEAR THE WORLD 
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JHP I C768B /SO TO DIABNOSTIC MONITOR 



/CONTROL 

/CHANBt THE SWITCH REGISTER ANYTIME CNTRL AND RETURN TO 

/THE PROBRAM RUNNING. 



8688 




CNTRLD, 


JHB 


UPAROW 


8681 






TAD 


CaaETD 


8682 






aZA CLA 




8683 






JHP 


CBUOU 


8684 


1777* 




TAD 


XC8CNT 


8685 






DCA 


CaRETO 


8686 






ISZ 


CaSETO 


0687 




CBDOll, 


JMS 


xcapsu 


0610 






OCA 


C8SETD 


0611 






JMS 


CBGET 


0612 




/ 
CasETDi 


JHP I 


CBRETO 


0613 


8088 


8 




8614 


8808 


CaRETD, 


8 





/CHECK IF THE RETURN AUDRS IS SAFE 

/OO NOT CHANGE THE RETURN ADDR3 
/GET THE RETURN A0DR5 AND SAVE IT 
/SAVE THt RETURN MERE 
/INOJCATt RETURN SAVED DONT DI3TR0Y 

/BU CHANGE THE SWITCH REGISTER 
/CLEAR THE FLAG 
/RESTORE THE AC HU LINK ETC 
/RETURN TO THE PROGRAM 



/THIS "ILL TYPE A UP ARROW ANU THE CHAW IN CBCHAK, 
0619 0808 UPAROW, 8 /C.PWNt THt "- AND TMt CHAR C8TYPE0 IN 



/KKee/NKai Dtr* reli«9ilitt prugrami mu.bi.dhrkc-h 



ati6 




TAO 


(3i6 


0617 


4T75 * 


JMS 


XC»T»PE 


06ae 


1774' 


TAD 


CaCHAK 


0621 


4775 ' 


JN» 


xc»Trpe 


0622 


4773 ' 


JM3 


xcecPLP 


0623 




JNP I 


UPAPON 
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/coat rop "" 

/C»TTPt me CHAR 
/EXIT 



<l«9 



0624 


0000 


0625 


7200 


0626 


1772 


0627 


7121 


0630 


1771 


0631 


7004 


0632 


7200 


0633 


1770 


063A 


S624 



casET, 



CLA 
TAD 
MOL 
TAD 
PAL 
CIA 
TAD 



ngSAVe 
PLiAVE 

ACSAVE 



JMP I CaSET 



/REaTOHE na 
/RESTORE THE LINK 



/RE6T0KE THE AC 
/GET THE RESiaTERS 



/CalNBu 

/CaiNQU ROUTINE WItL PRINT A mAITIHS 
/AND THE PROGRAM IB EXPECTING A CONTROL CHAR INPUT 
/IF CONTINUE fKOH CONTROL CHAR RETURN IS CALL PLUS ONE 
/IF NO CONTROL CHAR ENTERED THEN NAITING IS REPRINTED 
/AND PR08RAH HAITS FOR A CONTRUL CHAH AGAIN, 



/EX. 
/ 



CaiNQU • 

JHS XCSINO 
00 ANTTHING 



JHI XCSINQ 



/ea WILL PRINT A WAITINGAND WAIT FOR INPUT 
/RETURN IS CALL PLUS ONE AC PO CONTINUE 



/CALLS USED ARt.CHRCLA>XCaPNT-XCSTVI<caGET>XCSCNTR< 



063S 


0000 


xcazNa, 







0636 


7300 




CLA CLL 




0637 


4767" 




JHS 


CHKCLA 


0640 


7410 




8KP 




0641 


5635 




JMP I 


XCSINQ 


0642 


4766' 




JHS 


XCSPNT 


0643 


0651 




NATHES 




0644 


4765' 




JHS 


XCBTTYI 


064! 


4224 




JHS 


CSGET 


0646 


4777' 




JHS 


XCaCNTR 


0647 


5635 




JHP I 


XCSINO 


0630 


5236 




JHP 


xceiNO*! 


0691 


2701 


WATMESi 


TEXT 


"WAITING 


0632 


1124 








0653 


1116 









/CHECK LOC 21 BIT 3 CONSOLE BIT 
/ACTIVb CONSOLE PACKAGE 
/NOT CONSOLE LEAVE 

/INOUIK WAITTING 
/GET CHARACTER 

/CHECK IF CONTROL CHARACTER 

/EXIT AND CONTINUE 

/REASK 



/RKSt/RKSL DATA RELIABILITY PRUGRAHI NU.oa-DHRKC-H 



B654 
0655 



0740 
0000 
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/csawir 

/ROUTINE WILL UHECK IF CONSOL IS ACTIVt IF IT IS ACTIVE DISPLAY 

J«TS!l5NJ''£A:L'?LSroJric5.!' "''' "" "'-^ '"' '" """""'• '"^ 

/caawir will set up the pseuoo switch 

/REGISTER WITH THE NEW DATA ENTERED 

/ 

/ CSSWIT • 



/EX, 



JHS 



JHS XCSPSW 

xcapsw 



/SET UP PSEUDO CSSWIT REGISTER IF 

/ON THE CONSOL PACKAGE. RETURN IS CALL PLUS ONE AC • 



/CALLS USED ARt-CHKCLA-XCePSW-XCSPNT-XcaOCTA.XCaTYPE- 



0656 


0000 xcspaw, 




0657 


4767" 


JHS 


CHKCLA 


0660 


7410 


SKP 




0661 


5656 


JHP I 


XCSPSW 


0662 


1345 


TAO 


caswsT 


0663 


7640 


SZA CLA 




0664 


5764' 


JHP 


CSBY4 


0665 


2345 


laz 


CSSWST 


0666 


4766' CSROPSi JHS 


XCSPNT 


0667 


0747 


HEBA 




0670 


1020 


TAD 


20 


0671 


4763' 


JHB 


xceocTA 


0672 


1362 


TAD 


(40 


0673 


4775* 


JHS 


XCSTYPE 


0674 


2761- 


ISZ 


INHODE 


0675 


4760' 


JHS 


XCBECHO 


0676 


4315 


JHS 


TSTCHA 


0677 


1774' 


TAD 


CaCHAR 


0700 


3020 


DC A 


20 


0701 


1357 


TAO 


(•3 


0702 


3346 


DCA 


THPCNT 


0703 


4760' CETCHl, JH3 


xceccHO 


0704 


4315 


JHS 


TSTCHA 


0705 


1020 


TAD 


20 


0706 


7106 


»TL CLU 




0707 


7004 


PAL 




0710 


1774' 


TAD 


CBCHAK 


0711 


3020 


DCA 


20 


0712 


2346 


ISZ 


THPCNT 


0713 


5303 


JHP 


SETCHl 


0714 


5342 


JHP 


ENUIT 



/CHECK LOC 22 BIT 3 CONSOLE BIT 

/ACriVt CONSOLE 

/DEACTIVE CONSOLE PACKAGE 

/RETURN WITHOUT ASKING PBEUDO SWITCH 

/IS THE SOFT FLAG SET FOR SWITCH* 

/SKIP IF ONE ENTRY AT ATIHE OK 

/SECONO ENTRY WITH OUT A EXIT GO TD SW QUESTION 

/FIRST ENTRY SET FLAG 

/CSPHNI SR' 

/GET CUNTENTS OF SW 
/CONVENT IT TO ASCII 
/GET IPACE 

/SET FLAG FOR CHAR EXECTEO 
/LOOK KOR INPUT 
/NOT CUNTHDL TEST IT IS LEGAL 
/STORE NEW CHAR IN SW REG 



/GET A MINUS 3 

/STOKE IN TEMP COUNT 

/&CT NEXT CHAR 

/CHECK IF CR« GOOD CHAR 

/GET CeSWir REGISTER 

/ROTATE IT LEFT 3 PLACES 

/GEI CHAR* AUO IT TO PHEVIOUS CONTENTS 

/SAVe NEW CONTENTS 

/BUMP COUNT 

/JHP BACK* GET NEXT CMAR 

/END 4 CHAR CBTYPED IN 



/RKat/RK6L DIT* RELIteiLITT PRUSfOMI nU>8S-DHRKC-H 



piGEi Best 



ens 


0000 


T»TCH». 







eru 


7041 




cu 




BTIT 


1356 




TtD 


1215 


1729 


7650 




»Nlk CL« 




BTil 


5342 




JMP 


ENDIT 


1722 


1774' 




T«0 


CeCHAR 


«72J 


1395 




TtO 


(-260 


0721 


7710 




•P< CU« 




0728 


5336 




JNP 


ERRl 


8726 


1774' 




T40 


CaCHAR 


B727 


1354 




T»D 


(.470 


Hit 


7700 




8M4 CL* 




17J1 


9336 




JHP 


ERRl 


1732 


1774' 




7»D 


CaCHAR 


0733 


0353 




AND 


(7 


9734 


3774' 




DC« 


CaCHAR 


9739 


5715 




JMP I 


TaTCHA 


073* 


1352 


enm. 


TAD 


(277 


B737 


4775' 




jn« 


XCSTYPE 


e7ae 


4773* 




JMI 


xcacRLF 


0741 


9266 




JMP 


caRDPa 


B742 


4773' 


ENun, 


JH« 


XCeCRLP 


0743 


3349 




OCA 


caatiST 


8744 


9696 




JMP I 


xcapau 


B745 


0000 


casNST, 







0746 


0000 


TMRCNT, 







0747 


2322 


HCat, 


TEXT 


"8R« " 


0750 


7940 








0751 


0000 








0752 


0277 








0753 


0007 








0754 


7910 








0755 


7920 








0756 


0215 








0757 


7775 








0760 


1063 








0761 


1076 








0762 


0040 








0763 


1000 








0764 


0515 








0765 


0272 








0766 


0303 








0767 


1200 








0770 


1345 








0771 


1547 








0772 


1346 








0773 


1023 








0774 


1075 








0775 


1077 








0776 


0336 








0777 


0400 









/CHPU tHAK IM AC 

/^l»^ IF IT IS A CARRIASE RETURN 

/SKIP IN NOT CR. 

/HAS CARRIASE RETURN 

/NOT CR, SET CHAR 

/CHECK IF IT 13 IN RANBE 

/IF NOT PU31TIVE CaERR CHAR SMALLER THEN 260 

/CSERR- CHAR TOO aMALL 

/SET CHAR 

/SET A-27gt CHECK IF IT IS LARBER THEN 7 

/SKIP IF LESS THEN 7 

/CaERR ON CHAR NOT IN RANEE 

/GET CHAR 

/MAaK FOR RI8HT BYTE 

/STORE IN CHAR 

/GET CHAR IN AC 

/EXIT 

/CBPMNT 

/t 

/ 

/EXIT* ASK AGAIN 

/OO A CR LF 

/CLEAR THE PSH ENTRY FLAS 

/EXIT ROUTINE 



/RKaE/RKJL DATA RELIABILITY PRUBRAMI MU.aa>DHRKC>H 
1000 PAGE 

/CaOCTA 
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/OCTAL TO ASCII CONVERSION 

/THIS ROUTINE "ILL TAKE THE OCTAL NUMBER IN THE AC AND CONVERT IT TO ASCII 

/THE RESULT HILL BE PRINTED ON THE CUNSOL TERMINAL 

/ caocTA* jMa xcaocT 







/E«. 


JMS 


xcaocTA 






/ 

/ 
/CALLS 


RETURN 


IS TO CA{ 






USED ARE 


-XCBTYPE' 


1000 


0000 


xcaocT, 


i 




1001 


7106 




CLL RTL 




10(2 


7006 




RTL 




1003 


3221 




OCA 


CSTMPl 


1004 


1377 




TAD 


(-« 


1005 


3222 




OCA 


CaCKP 


1006 


1221 


CtU04, 


TAD 


CSTMPl 


1007 


0376 




AND 


(0007 


1010 


1375 




TAD 


(260 


1011 


4277 




JMS 


XCaTYPE 


1012 


1221 




TAD 


CBTHPl 


1013 


7006 




RTL 




1014 


7004 




RAL 




101! 


3221 




OCA 


CeTMPl 


1016 


2222 




ISZ 


caCKP 


iOlT 


5206 




JHP 


ceuo4 


1030 


9600 




JMP 1 


xceocT 


i0it 


0000 




CSTMPl, 





1022 


0000 




CSCKP, 






/AC CONTAINS NUMBER TO BE CHANSE 



/POSITION THE FIRST CHAR FOR PRINTING 
/SAVE CORRECT POSITIONED NORO HERE 

/STORE COUNTER IN HERE 

/BET FIRST NUMBER 

/MASK 

/ADO THE PRINT CONSTANT 

/TYPE THE NUMBER 

/ 

/PUT NEXT NUMBER IN POSITION 

/STORE IT 

/DONE YET KITH FOUR NUMBERS 

/NOT YET UU HORE 

/DONE WITH FOUR 



/CeCRLF 

/CBTYPE CR AND LF KITH FILLERS FOLLOWING EACH LF AND CR 

/ CaCRLF" JHB XCaCRL 

/ 

'EX. JMS XC8CRLF /CSPRNT A CR AND LF KITH FILL 

/ /RETURN TO CALL PLUS ONE AC '0 

/CALLS USED ARCXCBTYPE* 



18123 


Mte 


xcacRLF 


|0 






1^24 


7300 




CLA 


CLL 




1025 


1374 




TAO 




(215 


1026 


• 277 




JMS 




XCBTYPE 


IBST 


liJT 




TAD 




ULLER 


iSJS 


7040 




CMA 






fill 


3£40 




OCA 




FILCNT 



/GET CODE FOX CR 



/STOHE FILLER IN MERE 



/KKtl/RKai D<T« RCLIilSILITT CRUfiRtKI MU.B(-OKRKC-H 



P«OE t«l« 



PtGCI tlS* 









T»D 


(212 


/CET CUDE roH UF 






CtOOil, 


JMi 


SC'STtl't 










I«2 


f 1UC:<: 


/Cxecsi ON FltLEK CH«R 








jnr 


CtPOi 


/TYPE • NDN PRINTZNt CHtlt 








JHP I 


XCICRL 


/EXIT 






riLtCN, 


I«(4 




/riLLEM SET rOK • CHtll 






riLCNT, 


e 




/COUNTER FOR FILL 



/CtCKF* 

/THII ROUTINE "ILL CHECK IF > CHtRlCTER H*l ENTERED FROM THE 

/TERMINtL. IFTHE FLtG IS (ET <ND THE CONIOLE RtCKAlE II 

/«CTIVE > CHEC" li H»DE TO OETERHINB IF IT II « CONTROL CHAR. 

/IP IT RAI A CUNTROL CHtR THEN ITI CONTROL FUNCTION II FIRPORHEO. 

/IP NOT « CONTKOL CHARtCTER OR k CONTROL E>D*L*0> IT MILL DO 

/THE CONTROL FUNCTION (NO RETURN TO C«LL PLUI I. 

/« NON CONTROL CHARACTER HILL IE FRINTEDANB A "t" IT HILL RETURN TO 

/CAUL FLU! i, 

/IP NO FLA8 II lET OR THE CONIOL II NOT ACTIVE THE RETURN II TO 

/CALL FLUI 1. 



CICKPA' JMS 



XCICKP 



/EX. JHI XCICKPA /CALL TO CNICR IF CONTROL CHAR lET 

/ ANYTHING imiP) /RETURN IF NOT FLAI OR NOT CONIOLE ACTIVE 

/ ANYTHIN61JMF EXIT IKIP CHAIN) /RETURN IF NOT CONTROL OR CONTINUE CONTROL 

/CALL! UIEO ARt.>CITTYI>>CICNTR>CIIET> 



1811 


0110 xcacKP, a 




1142 


JTT2' 


DCA 


ACIAVE 


1«*3 


1114 


STF 




IMA 


3rn» 


OCA 


PLIAVE 


11*5 


7511 


NOA 




!■«» 


J77I' 


DCA 


HQIAVE 


1147 


6131 


KIF 




1150 


9211 


JHP 


CIIY3 


tISl 


47»T' 


JHI 


CHKCLA 


1BS2 


7411 


IKP 




1I5J 


5211 


JHP 


caaY3 


ias« 


«T»»' 


JMA 


XCITTTI 


IMS 


4TI5' 


JHI 


caiET 


1IS6 


4714* 


JHI 


XCaCNTR 


1M7 


Tiaa 


NOP 




leii 


2241 


IIZ 


xcacRP 


ii»i 


4763* CaBV3, JMa 


CaBET 


1112 


3141 


JHP I 


xcaCKP 



/aAVE THE AC 

/EAVK THE FLASI 

/lAVE THE FLAM 

/PUT HH IN AG 

/lACE THE HI 

/CHECK THE RITtOARD PLAt 

/EIIT TO CALL PLUI 1 

/CHECK LOC 21 IIT I CONIOLE ilT 

/ACTIVE CONIOLE PACKASE 

/EXIT TO CALL PLUI 1 

/SET THE CHAR 

/lET THE FLAII 

/CHECK IF CONTROL CHAR. 

/RETURN IF A CONTINUE CHAR. 

/BUHP RETURN FOR CALL FLUE 2 

/BET RkBIITERI 

/lAY BOOD BY 



/RKIE/RKIL DATA RELIAaiLITT PRUSRAMI nU<Ua-DHRKC-H 
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/cHl?K''?F^i?M!i'-'r l:SS;.o,°%i 'ilt', l""" ^"^ «^»oaro. itore it in location char 

/CHECK IF IT NAI A CONTROL CHARACTER- lET INHODE- PRINT CHARACTER 
/ CIECHO ■ JMa XCIECH 

/'«• Jna xcaECHO /look for conbol char cbprnt it 

/RETURN CALL PLUI ONE AC • CHAR CITYPfO IN 
/CALLS USED ARe.XCITTYI.XCaCNTR-CaBET.XCaECH-XCBTTYPE 



1B»3 


eaea 


XCSECH, 







tB64 


4766' 




JHS 


XCBTTYI 


IBIS 


4765' 




JHS 


CIEET 


1116 


2276 




laz 


INHOOt 


1B67 


4764' 




JHI 


XCeCNTH 


ie7B 


5663 




JHP I 


XCIECH 


1B71 


4277 




JHI 


XCaTYPE 


1B72 


3276 




DCA 


INHODE 


1B73 


1275 




TAO 


CSCHAR 


1874 


5663 




JHP I 


XCIECH 


1B7! 


Biea 


CaCHAR, 


B 




1B76 


BIBB 


INHODE. 


e 





/HAIT POH CHAR FROH KEYBOARD 

/REBTDNE THE RCEIBTERI 

/BET INHODE IDENTIFINS THU AS A EXPECTED CHAR 

/SD UHtCK IF IT IB A CONTROL CHAR 

/KAB A CONTROL CHAR> CONTINUE RUNNING 

/NOT A CONTROL CHAR CBPRNT IT 

/CLEAR FLAB THAT CHAR EXPECTED 

/BET CHAR IN AC 

/EXIT 



/CBTYPt 

/THI8 MOUTINE "ILL CBPRNT ON THE CONIOLE OR THE LPT HITH DEVICE CODE 66, 

/ CBTYPE" JHI XCITYP 



/Ex, 



JHS 
/ 



XCITYPE 



/CALLS USED ARt-canANO-XCaCNTR-XCBPNT-XCBCHLP-XCBINOU- 



/CBPHNT THE CHAR IN WE AC, 

/RETURN CALL PLUS ONE AC •BBBB 

/DO NOT CLtAK THE LINK IN THI8 ROUTINE NEEDED BYCBOCT 





BBBB 


XCITYP, 


B 








332B 




DCA 


PNieup 


/STOHE CHAN 




1321 




TAD 


TTYLPT 


/CHECK O'TTY 7777»LPT 




764B 




SZA CLA 








5312 




JHP 


XDULPT 


/DO OUT PUT ON LPT 




132B 




TAD 


PNTBUP 






6B46 




TLS 








6B41 




TIF 








5326 




JHP 


— 1 






6842 




TCP 








5316 




JHP 


ceoYS 






132B 


XOULPT, 


TAD 


PNTBUF 


/SET CHAR 




6666 




PSTB 


PCLP 


/CSPHNT IT 




4322 




JHS 


CBHANG 


/CHECK KEYBOAHD IF HUNG 




6662 




PCLP 




/CLEAR THE FLAG 




76BB 


casYS, 


76BB 




/CLEAR THE AC 



/RKJt/HKet D«T« RELI4BILITT PHUG«»MI MU-Bd-DMRKfM 



HIT 


5677 




JMP I 


XCBTYP 


ties 


seee 


PNTBUr, 







U8l 


Bee0 


TTTLPT, 







1122 


Idee 


CantNS, 







1123 


72B8I 




CL« 


t 


1124 


1316 




T*0 


CBBYS 


1125 


332e 




Oct 


PNTBUF 


1126 


6661 




PSKF 




112? 


74ie 




SKP 




me 


5722 




JMP I 


CBMtNG 


1131 


2345 




I8Z 


CSCONT 


1132 


3326 




JMP 


• -4 


1133 


2320 




IBZ 


PNTBUf 


1134 


5331 




JMP 


• •i 


1135 


1764- 




TAD 


xceCNTH 


1136 


3322 




0C» 


CSHANG 


1137 


3321 




DC* 


TTTLPT 


114B 


4763' 




JMS 


XCBPNT 


11«1 


1146 




MESHtNU 




11'2 


4223 




JMJ 


XC«C«L' 


1143 


4762' 




JMS 


xceiNBU 


1144 


5722 




JMP I 


C8M«NG 


1145 


aeee 


CSCONT, 







1146 


i«ee 


MESHINU 


,TEXT 


"tPT tRRON" 


1147 


2440 








use 


Dili 








1151 


2217 








1152 


22Be 








1162 


0635 








1163 


0303 








1164 


0400 








1165 


0624 








1166 


0272 








1167 


1200 








117e 


1346 








1171 


1347 








1172 


1345 








1173 


0212 








1174 


0215 








1175 


0260 








1176 


0007 








1177 


7774 
1200 


ptee 







P«L1B 
/tXIT 



/GET CUN9TANT 7600 

/PNTBUK IS NUX « CDUNTER 

/SKIP UN PNINTtR DONE 

/NOT DUNt YET 

/SIH FLAG DONE 

/FIRSIT CUUNTtR FAST ONE 

/CHECK IF FLAG SET YET 

/MADE 40^6 CUUNTS ON FAST COUNTER 

/"EEP IT UP FOR S SEC 

/GET TME RETURN ADDRESS IN CONTROL 

/SAVE IT IN MANG 

/ALLUW PRINTING ON TTY 

/LPT ERROR 

/PRINT WAITING 

/CONTINUE TO SAVE ADDRESS 

/COUNTER FOR TIMER 
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/••«•.•».....,.,«,.,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,_i^^^^^^^_^^ 

^In'L''°VI'J' ""•'• """ LOCATION 2i THE HARD WARE CONFIG WORD. 

/TO CALL PLUS 1W0 FO A ACTIVE C0N80LR PACKAGE AC>0 

/IF NOT SIT THEN TO CALL PLUS ONE FOR A UEACTIVE CONSOLE PACKAGE. 



/RK8E/RK8L OAT* RELIABILITY PRUGR*M| MU.0a.DHRKC-H 



1200 


0000 


CBKCL*! 





1201 


7200 




CL* 


1202 


1022 




T*D 22 


1203 


0377 




AND («00 


1204 


7650 




SNA CLA 


1205 


2200 




ISZ CMKCL* 



1206 5600 



JMP I CHKCLA 



/CSERR 



PALIB V142A 23-FEB-77 



/SET TME COTENTA OF LOCATION 22 

/MASK FOR BIT i C400 

/ 

/»CT1VE CONSOLE PACKAGE RETURN 

/CALL PLUS ONE CI) FOR ACTIVE 

/DEACTIVE CONSOLE P*CKAGE RETURN 

/CALL PLUS Two (2) 
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/THIS ROUTINE WILL DETERMINE WHAT TO OU WHEN A CBERR IS ENC 
/"ILL UHECK^IF CL.SSIC^SYSTEM, will CHECK CBS«T REGi"erS? 



NCOUNTEREO 



/EX, 
/ 



JMS XCSERR 
/CALLS USED »Rt-CMKCL*-XCSCRLF-XC8SW.XCBINUu-XCBPNT-XCB0CT» 



/GO TO CBERR CALL IF NOT CONSOL 
/RETURN IS CALL PLUS ONE «C '000 



1207 


0000 


XC8ERR, 




1210 


6002 


lOF 




1211 


3345 


OCA 


*C3*VE 


1212 


6004 


OTF 




1213 


3347 


OCA 


FLS*VE 


1214 


7501 


MQ* 




1215 


3346 


DC* 


MOSAVE 


1216 


7340 


CL* CLL 


CMA 


1217 


1207 


T*D 


XCBERR 


1220 


3344 


DC* 


PCSAVE 


1221 


6201 


CDF 




1222 


7340 


CL* CLL 


CM* 


122J 


1776 


T*D I 


ICLASIKJ 


1224 


3316 


DC* 


REALPC 


1225 


6211 


CDF 


10 


1226 


4200 


JMS 


ChkcL* 


1227 


7410 


Skp 




1230 


5270 


JMP 


NTCL*S 


1231 


4775' 


JMS 


C6GET 


1232 


4774' 


JMS 


XCBSW 


1233 


0373 


SETUP!, AND 


10000 


1234 


7640 


32A CL' 




1235 


5262 


JMP 


ceuoi0 


1236 


4772' 


JMS 


XCBCRLf 


1237 


4771' 


JMS 


XCBPNT 


1240 


1320 


ERRME3 




1241 


4771' 


JMS 


XC8PNT 


1242 


1330 


MtSPC 




1243 


1316 


T*0 


Ht*LPC 


1244 


4770' 


JMS 


XC80CT* 


1245 


4771 ' 


JMS 


XCBPNT 


1246 


1333 


MESAC 





/S*Vt AC 

/S*Vt TME FL«GS 

/SAVE THE MO 

/SUBTRACT A 1 FOR TRUE LOCATION 

/GEI RtTTURN LOCATION 

/S*VE ADU UF CaERR CALL 



/SET HEAL PC, 
/3*yt IT, 

/CHECK L0t,22 BIT 3 CONSOL BIT 

/ACTIVE CONSOLE PACKAGE 

/NOT CLASSIC SYSTEM 

/GET REGISTERS, 

/CHECK SWITCH REG FOR BIT TM*T INUIC*TES 

/NO ERROR MESSAGE 

/M4SK COW BIT FDR NO ERROR PRINTING 

/IF IHIS ERROR MESS*GE IS TO ALWAYS 

/BE PRINTED LEAVE AND VALUE AT 0000 

/SKIP IF BIT IS PRINT ERROR MESSAGE 

/DO Nor PRINT 



/PRINT TME ERROR MESSAGE 

/PRINT THE PC STSTtMENT 

/GET PL 

/CONVERT a DIGIT PC TO ASCII 



/PRINT TME AC MESS 



/KKet/RKtL DAT* KELIteiLITT PRUERAMI riU>ie8«DHRKC-H 



PALIK Vl<(2« J3.FEB.77 



PiGEI 0842 



12«T 


IJ45 




T*D 




AC6AVE 


izse 


4770' 




JMI 




XCaOCTA 


1851 


4771' 




JHS 




XC4PNT 


US8 


1]]6 




HESno 




129] 


1346 




TAD 




naSAVE 


125(1 


4770- 




JM8 




XCSOCTA 


1255 


4771' 




JMS 




XCePNT 


1256 


1341 




ME0FL 




125T 


1J47 




TAO 




FLSAVE 


UM 


4770' 




JMS 




XCSOCTA 


t2tl 


4772' 




JH« 




XCBCRLF 


12»2 


4775' 


060010. 


JM5 




CSBET 


1263 


4774' 




JMS 




XCSSU 


1264 


7610 




8KP 


CLA 




1265 


5300 




JMP 




t:SBY2 


1266 


4767' 




JMS 




XCaiND 


126T 


5300 




JMP 




C6l>y2 


1270 


4775' 


NTCLtSi 


JMS 




CeSET 


1271 


4774' 




JMS 




xcssu 


12T2 


7610 




SKP 


CLA 




12TJ 


5607 




JMP 


I 


XCSERR 


1274 


1366 




TAD 




(7*02 


1275 


3744 




OCA 


I 


PCSAVE 


t2T6 


4775' 




JMS 




csecT 


12T7 


5744 




JMP 


I 


POAVE 


ISBB 


4775' 


csar2, 


jns 




CBGET 


liai 


5607 


/ 


JMP 


Z 


XC4ERR 


1302 


7402 


/ 

ROUXNS, 


MLT 






130] 


7000 




NOP 






1304 


JJ17 




OCA 




MTAC 


l]05 


6201 




CDF 







1]06 


1020 




TAD 




Ink 


1]07 


3765 




OCA 


I 


(SMR) 


1310 


1776 




TAO 


I 


(CUASIK) 


1311 


J315 




OCA 




CLRTRN 


1312 


1317 




TAO 




MTAC 


1313 


6202 




CIF 







1314 


5715 


/ 
CLRTRN, 


JMP 


I 


CLRTRN 


1315 


0000 









1316 


0000 


R«»LPC, 









1317 


0000 


/ 
ERKHCS, 









1320 


0410 


TEXT 




"DHRKCM 


1321 


2213 










1322 


0310 










1323 


4040 










1324 


0601 










1325 


1114 










1326 


0504 










1]2T 


4000 










1]10 


4040 


MEIPC, 


TEUT 




• PCI" 



/SET RUGISTERS. 

/CHECK SHITCH REGISTER 

/SKIP IF elT SET 

/LEAVE 

/GO TO THE INQUIRE ROUTINE 

/LEAVE 

/GET RtGISTEKS. 

/CHECK PSEUDO SNITCH REGISTER 

/CHECK THE C8SWIT REGISTER 

/SKIP IF HALT 

/NO HALT CONTINUE 

/CODE fOR HLT 

/PUT IT IN CALL LOC, 

/EXIT TO CALL AND HALT 
/Gir THE REGISTERS 



/PUT INSTRUCTION TO EXECUTE HERE, 
/SAVE AC 



/RETURN TO FIELD 0, 



/RKSE/RKSL DATA RELIABILITY PRUBRAHl MU.BB-DHRKC-H 



PALIU Vt42A 23-FEB>77 



4105 



PAGE t-t1 



PAGEl 0043 



1331 


2003 






1332 


7200 






1333 


4040 


ME8AC, 


TEXT 


1334 


0103 






1]]5 


7200 






1]36 


4040 


ME6H0, 


TEXT 


1337 


1521 






1340 


7200 






1341 


4040 


MESFL, 


TEXT 


1342 


0614 






134] 


7200 






1]44 


7777 


PCBAVE, 


7777 


t]45 


7777 


ACSAVE, 


7777 


1]46 


7777 


MQSAVE, 


7777 


1J47 


7777 


FLSAVE, 
/ 


7777 


1]65 


0020 




1366 


7402 






1367 


0635 






1370 


1000 






1371 


030] 






l]72 


1023 






1]7] 


0000 






1]74 


0262 






1]75 


0624 






1576 


1514 






1377 


0400 








0000 




FIELI 



FLI" 



/RK»t/HK«l. D»T» REtlABILITY PRUGKAMI nu-ea-OHRKC-H 



P«Ll» VI<I2» 23-Ft8-7r 



PAGt l-ii 



PtGEI ae«4 









esee 






i0ee 
use 



1300 



1400 
1S00 



1600 
1700 



2000 

2100 



2200 
2300 



2400 
2S00 



2600 

2700 



3200 
3300 



1400 
1500 



1600 

3700 



00000000 00000000 11I011U UUllU 11000000 

00000000 00000000 00000000 00000ege 00000000 



ItllltU 

niiuii 



iiitini 

11111111 



Utltlll 

11111111 



UIUIU 
lllltlU 



UUllll 
Ullllll 



1111111 Ullllll 
tllllU Ullllll 



1111111 
1111111 



1111111 
luiiu 



Ullllll 

iiuuu 



lUtlUl 
lllllUt 



lllUlt llltlUl 
UlllU Ullllll 



UlUll lUUUl 
UlllU lUUUl 



IIUIU lUU 

luuu tuu 



UUIU 
llUUl 



ItUl 

mil 



UlllU UlU 
lUtlU lUU 



lUUU UUl 
UlllU UUl 



lllUU UUl 
tlUUl UUl 



00000000 00000000 000000ee 

00000000 00000000 0000000e 

Ullllll UUUU UlllU 

10000001 UUUU UUIU 

Ullllll UUllU UUIU 

11111110 lUUUt UUIU 



lutiiu 

lUUlU 



ItllUU 
UUUU 



UUIU 
UUIU 



luuiit Ullllll iiiiui 

11100000 00111111 UlllU 

lUUUI UUUU IIIIUI 

00000000 00000111 llllUI 



/RK8t/RK«l. D*T* RELI*BILITT PRUGRtni HU.8«.0HRKC»H 



P*tl0 Via2< 23>FE0>77 



9I0S 



PiGEI 0049 



4000 
4100 



4200 
4300 



4400 
4500 



4600 
4700 



5000 
5100 



5200 

5300 



5400 
5500 



5600 
5700 



610e 



6200 
6300 



6403 

6500 



6600 

6700 



7000 
71B0 



7200 
7300 



7400 
7500 



760S 
?70BI 



/RKK/RltaU D<T« KELIteiUtTT PDUSR/tHI >iU>l|«BMDKC-li 



PdUH »!«»« 8J»Ft»»TT 



«l(9 



ptsei ■■«» 



/NOTEIuaCinON e CONTtlNS 

/LtVEL (IN ASCII) UN PDOGR 

/ 

/«tL KNOHN Hiurs 

/ 

l«e« BSSt CRMLTe 

1401 est] ERMLT2 

140! iSkl ERHUTS 

1403 2544 ERHLTS 

1404 0547 ERI1t.T6 

1409 31)0 INTERl 

1406 Hit INTERS 

1407 0206 FI.DHLT 

1410 2702 NOUSKS 

1411 0603 STfHLT 

1412 2799 CHNHLT 

1413 1707 BtUHLT 

1414 3136 BIfiSTP 

/ 

6740 DL9C>6r40 

6741 0»IIR»6741 

6742 DCtR>6r42 

6743 DL4lil6r43 

6744 DI.C«>6r44 
6749 DRaT'6r49 
6746 DLDC>6746 

/ 

4406 LtSijns I Xt4> 

44)7 CL*)IC>JM( I ICL4S 

4427 RAND«T"J«» I XRNWRD 

4430 DlaCON«JMS I (DUMP 

4431 SPACEajnS I «iP«C 

4432 ONIINaJMS I XOCTl 

4433 FORINaJMS I X0CT4 

4434 SETGENaJNI X XTSEN 



THE REVSION 
AM LOAD, 



/*KIP TRAP DL9C 

/SKIP TRAP DCLR 

/SKIP tRAP DLAG 

/SKIP TRAP ORST 

/SKIP TRAP DLDC 

/NO UiaK INTERRUPT 

/UNOEPINED INTERUPT 

/PROBRAM WILL ONLV RUN IN PIELD 

/NO UISKS AVAILABLE TO RUN 

/PROIiRAH STOP PROM SWR4'1 

/lOT CHANGE MALT 

/COMPUTER MUST BE DOWN, CHECKSUM FAILED 

/BUT WURD-KT^NORD COMPARE WORKED, 

/STOP FOR ALL ERROR HALTS, 

/LOAU SECTOR COUNTER 

/SKIP UN TRANSFER DONE OR ERROR 

/CLEAR DISK CONTROL LOGIC 

/LOAU ADDRESS AND SO 

/LOAU CURNkNT ADDRESS 

/REAU STATUS REGISTER 

/LOAU COMMAND REGISTER 





SETFLD'JMS I 


XSTFLD 




VESNOUMS I 


KCNKYN 




SELCHKAJMS I 


XCKPOT 




RANGCN'JMS I 


XRNOOM 




RESRAN'JNS I 


XRSRAN 




DISKGO'JMS I 


XDSKSO 




RECAL'JMS I 


XRESTR 




RECEIV'JMS X 


XWAIT 




ERRORlJMS I 


XERRO 




RDSTATIJMS I 


XRDST 




LDADD6JM8 I 


XLDAD 




DSKSKPiJMS I 


XSUKP 



/RKtE/RKSL DATA RELIABILITT PRUGRAMI MU<ea>DHRKC-H 



PAL10 V142A 2I«FEB«77 



«l«9 
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4491 


LDCMDi' 


JMS t 


XLDCM 




4492 


LDCUR«. 


JMS I 


XLDCA 




4494 


CLRALLIJMS I 


XCLDR 




4499 


PRNTER 


•JMS X 


XPRN 




4496 


OCTEL'JMS : 


XFROCT 




4449 


TYPE«JMS I 


XPRXNT 




4497 


CRLFiJNS I 


XCRLF 




4426 


GENDAT< 


• JMS I 


XGNDAT 




4424 


CHK22>JMS I 


XCMK22 




4429 


KTICKi. 
/ 

• 
/ 


JMS I 


XKTCK 




0000 






0000 


0310 


310 




0001 


9001 




9001 




0002 


0002 




0002 




0003 


0003 




0003 




0004 


0004 




0004 




0005 


0009 


/ 

XLAS. 


0009 




0006 


1946 


MYLAS 




0007 


1914 


XCLAS, 
/ 

• 10 

/ 

AUTO10I 

/ 

AUTOU, 

/ 

AUr012i 

/ 


CLASIK 






0010 






0010 


0000 


r 




0011 


0000 


1 




0012 


0000 


1 




0013 


0004 


/ 

X0004, 


0004 




0014 


0070 


K0B70, 


0070 




0019 


0100 


K0100, 


0100 




0016 


0200 


K0200, 


0200 




0017 


0400 


K0400, 

/ 

• 20 

/ 

SHK, 


0400 






0020 






0020 


0000 







0021 


4000 


OPl, 


4000 




0022 


0000 


DP2, 

/ 

KAtRRU, 







0023 


2196 


AERROR 




0024 


092! 


XCHK2J, 


CHEK22 




0025 


1154 


XKTCK, 


XKTICK 




0026 


1737 


XGNDAT, 


SNOAT 




0027 


2600 


XRNWRD, 


RNHRD 




0030 


2637 


XOUMP, 


DUMP 




0031 


1506 


XSPAC, 


SPAC 




0032 


2400 


XOCTl, 


OCTl 




0033 


2430 


XOCTa, 


OCT 4 




0034 


1793 


XSTGEN, 


STGEN 




0039 


2703 


XSTFLD, 


STFLD 





/REVISION "H"IINTERRUPT SERVICE RETURN 
/OCA SAVAC SAVE AC AT INT, 
/RAL SHIFT LINK AT TIME OF INT, 
/DCA SVLNK SAVE LINK AT TIME OF INT. 
/JMP I 9 RETURN TO INT, SERVICE 
/RETURN POINTER 



/Rmt/RK8L D»T» «tUI»BILITT PSUBK4MI MU.B»-DMRHC-M 



P«Ll«l Vl«e« i3-PtB-77 



PAGE 1-24 



p<GEi ^^lti 



tea 

e03T 
8«ae 

ee«] 
ae«4 

0046 
0047 
00S0 
00S1 
0052 
0053 
0054 
8055 
005i 
0057 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
9070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0100 
0101 
0102 
0103 
0104 



0106 

0107 
0110 



2060 
2035 

1715 
2200 
1761 
3052 

2000 

2620 
1200 
2541 
0751 
0542 
2550 
2554 
0560 
1450 
1426 
1414 
0000 
8001 
8003 
8806 
8807 
0018 
0017 
8260 
0277 
0770 
7807 
4000 
4100 
1080 
1777 
7708 
7760 
7777 
0077 
6201 
7408 



8185 7764 



7774 
7770 
7775 



Sill 0008 

3112 0008 

9113 0000 

2114 0008 

3115 0808 



XCKPOTr 
KCMK7N, 
XRNDOM, 
XDSKSQi 
XRSR4N, 
XRC9TR, 

xmiT, 

XPHINT, 

XEKRO, 

XRD9T, 

X9UKP, 

XtOCM, 

XlDCt, 

XL040, 

XCLDN, 

XPRN, 

XFROCT, 

XCHLPi 

•MOUNT, 

K0001, 

K0B03, 

K0e86, 

KeB87, 

K8010, 

Ke0i7, 

K0268, 

K027r, 

10770, 

47007, 

K4808, 

K4100, 

KlB0e, 

K1777, 

KT700, 

K7760, 

K7777, 

K8077, 

KCOr, 

K7400, 

I 

DECI14U 

I 

Ml*, 

/ 

OCTAL 

/ 

M4, 

"ID, 

K777S, 

/ 

TR4SM1, 

TR4SH2, 

TR4SM3, 

UPDATE, 

P0LD9K, 



CHKPOT 

CHKTN 

RANDOM 

D9KG0 

R9RAN 

RE9TDR 

WAIT 

PRINT 

ERRO 

RD9T 

8DKP 

LOCM 

LDCA 

LOAD 

CLOR 

PRN 

FROCT 

UPONE 

8 

8881 

8083 

8886 

0887 

0010 

0017 

0268 

8277 

0770 

7007 

4888 

4108 

1000 

1777 

7708 

7760 

7777 

0077 

COP 

7408 



■12 



-IB 
7775 



/RI<9t/RK»L DATA RELIABILITY PRUGR4MI MU.09-OHRKC-H 



PAL10 V142A 2I.peB-7T 



PAEEI 8049 



0116 


8008 


OPKTALi 


r 


8117 


0000 


BUFTAL, 


r 


8120 


0000 


PCHEB, 





0121 


0800 


BTRE6, 





0122 


0808 


EXNEE, 





0123 


0080 


CMREO, 


8 


8124 


0008 


INTDA, 





0125 


0808 


DAREE, 





0126 


8000 


CAKEE, 


8 


0127 


0000 


HCHEE, 


8 


0130 


0080 


FlmEE, 


8 


0131 


0000 


4SREE, 


8 


0132 


0000 


HAKES, 





8133 


0800 


ADREG, 





0134 


0000 


DEREG, 





0135 


0080 


DBREE, 


8 


0136 


0000 


INTCM, 


8 


0137 


0800 


STATRT, 


8 


0140 


0080 


DATTKT, 


8 


0141 


0080 


CMI(94V, 


8 


0142 


0000 


FNU9UM, 


8 


0143 


0800 


HAXFLD, 


8 


0144 


7607 


MAXTIM, 


7687 


0145 


3240 


MAXTRK, 


3248 


0146 


3680 


BGNBUF, 


9TRBUF 


0147 


8000 


C0N8EC, 


8 


01S0 


7777 


CLKCNT, 


-1 


015J 


8756 


/ 

DATPOT, 


OATl 


0152 


3522 


TIMPOT, 


08TM1 


0153 


3537 


9TAPDT, 


D0HRD-. 


0154 


3512 


RUNPUT, 


D9K8B 


eU5 


0000 


/ 

CRCCNT, 





ElSfc 


0000 


CRCFLE, 


8 


BUT 


0000 


OATFLG, 


8 


0160 


0000 


SPfLD, 


8 


0161 


B000 


SPTRKl, 





ei62 


0800 


SPTRK2, 





0163 


0000 


8P8EC, 


8 


0164 


0000 


SPBLK, 





0165 


0000 


ERPLG, 


8 


ei96 


0000 


SAVAC, 





aS67 


000B 


SVLNK, 





asra 


0080 


FIHTIM, 





0l'l 


0000 


TRTCNT, 





0172 


3213 


XTtXT, 


TEXPC 


0173 


3142 


PRNOAI, 


TYPDAT 


8174 


0008 


SAVCM, 





0175 


0000 


CUKBAK, 

/ 
B4MLT, 





0176 


iM\ 


BIEHLT 




0200 


• 2iie 





/RKSE/KKtL OtT* fCUItBILITT PRUIiRini nU-Be-QHRKC-H PIL 

/8URT Qf PROOKJI »Y OPER4T0RI 

/«T BJUB, TTY iNTtRIGATIONl 

/IT eZUl, CHtNbE lUT OEVICt C0UE81 

/«T 02112, RESTART tT SEEK ROUTINE! 

/ 



ptsEi esse 



ziee 


477T' 


BGN, 




JUS »PT« 


ezei 


5776* 






JMP CH4NG 


0202 


5775- 






JMP RUN 


0203 


31S6 






OCA CRCFLB 


0204 


6224 






RIP 


020S 


7440 






SZA 


0206 


4576 


FLUMLT, 


1 JMS I BGHLT 


0207 


1103 






TAD KCDF 


0210 


3211 






DCA .*1 


0211 


7402 






HLT 






/SETUP 


INTERRUPT SERVICei 


0212 


1362 


/ 




TAP ACUCA 


0213 


3001 






DCA 1 


02U 


12S0 






TAD KRUT 


021! 


3002 






DCA 2 


0216 


1361 






TAD LNUDCA 


0217 


3003 






DCA 3 


0220 


1360 






TAD KS405 


0221 


3004 






DCA 4 


0222 


1363 






TAD BRKRET 


0223 


3005 






DCA S 






/CLE4R 


DATA INFORMATION TABLE 






/»T 


ENt 


1 OF PROIiRAMl 


0224 


1077 


STRTEX, 


TAD R7700 


022S 


3111 






DCA TRASHl 


0226 


1774' 






TAD RANJMS 


0227 


3773* 






DCA SWDAT 


0230 


7340 






CLA CLt CMA 


0231 


1152 






TAD TIMPOT 


0232 


3010 






OCA AUTO10 


0233 


3410 






OCA I AUTOK 


0234 


2111 






ISZ TRASHl 


023! 


5233 






JHP ..2 


0236 


3157 






DCA OATFIE 


0237 


5775' 


SKPNOP, 

/ 


JMP HUN 






/ 

/PRINT 


PROGRAM NAME ANP 






/tSK 


0PER4TUR ABOUT AMOUNT 






/OF 

/ 


HEnORTl 


0240 


4457 




CRLF 


0241 


4455 






PRNTER 


0242 


3307 






MESt 


0243 


4455 






PRNTER 


0244 


3346 






MESS 



/SET 



/TO HEGULAR TEST 
/CHANGE lOT ROUTINE 



/CLEAR CRC FLAG 



/FIELD 0tTTT 

/•ILL ONLY RUN IN FIELD 0T?TT 



/MAKE DF«IF 

/SETUP AC DCA 
/SETUP ROTATE LINK 
/SETUP SAVE LINK 
/SETUP JMP RETURN 
/RETURN POINTER 



/CLEAR COUNTER 
INSTRUCTION SNITCH 



/LOCATION POINTER 
/CLEAR 



/HURt TO CLEAR 



/PRINT "RKSE/RK8L DATA RELIABILITT" 
/PRINT "AMOUNT OF MEHORY' 



/RKSE/RKSL DATA RELIABILITY PRUGRAMI MU.as>DHRKC-H 



0245 


4432 




ONEIN 




0246 


0070 




0070 




0247 


5243 




JMP 


• •4 


0250 


7004 


KROT, 


RAL 




0251 


7006 




RTL 




0252 


7040 




CMA 




0253 


3J43 




DCA 


M»«FLD 


0254 


4772- 




JMS 


CLAFLD 


0255 


3111 


ALLACN, 


DCA 


TRASHl 


0256 


1107 




TAD 


MIB 


0257 


3112 




DCA 


TRASH2 


0260 


3060 


/ 

/ASK Of 

/ 
NE«T, 


DCA 


AMOUNT 






'EHATOR A 


BOUT 0I8KCS) 


0261 


UU 


TAD 


TRASHl 


0262 


1154 




TAD 


RUNPOT 


0263 


3113 




OCA 


TRASH3 


0264 


4455 




PRNTER 




0265 


3325 




HE52 




0266 


7340 




CLA CLL 


CMA 


0267 


4455 




PRNTER 




0270 


3332 




MESS 




0271 


1067 




TAD 


K0260 


0272 


UU 




TAO 


TRASHl 


0273 


4445 




TYPE 




0274 


1070 




TAD 


KB277 


0275 


4445 




TYPE 




0276 


4444 




RECEIV 




0277 


4437 




YESNO 




0300 


5255 




JMP 


ALLABN 


0301 


5304 




JMP 


.*3 


0302 


2060 




ISZ 


AMOUNT 


0303 


7340 




CLA CLL 


CHA 


0304 


3513 




DCA I 


TRASH3 


0305 


2111 




ISZ 


TRASHl 


0306 


2112 




ISZ 


TRASH2 


0307 


5261 


/ 


JMP 


NEXT 






/ 

/ASK If 

/ 


ACCEPT 1 


looei 


0310 


1060 


TAD 


AMOUNT 


0311 


7650 




SNA CLA 




0312 


5224 




JMP 


STRTEX 


0313 


4455 




PRNTER 




0314 


3363 




ME86 




0315 


4444 




RECEIV 




0316 


4437 




YESNO 




0317 


5313 




JMP 


• -4 


0320 


7610 




SKP CL« 




0321 


5771' 


/ 


JMP 


ASKSUR 






/ 

/IF ACttPT MODE, 


, INTERAGATC 



PALIV VI42A 23-FEB>77 

/RECEIVE ONE OCTAL 

/LIMITS 

/INPUT ERROR 



/COHPLEMCNT 

/MAXIMUM FIELD POINTER 

/CHECK FOR CLASSIC, 



/A FEK POINTERS 



/SAVE RUN POINTER 
/PRINT "EXERCISE" 



/ADD IN UISK NUMBER 
/TYPE DISK NUMBER 

/TYPE T 

/RECEIVE KEY INPUT 

/WAS IT YES OR NO 

/NEITHER 

/WAS A NO 

/AMOUNT OF OUK FOUND 

/AC TO 7777 FOR EXISTING DISK 

/SETUP RUN POINTER 



/ASK ABOUT NEXT DISK 



/GET AMOUNT FOUND 

/WERE ANY FOUND 

/OPENATOR ERROR NO DISK INPUT 

/PRINT "ACCEPT MODET" 

/RECEIVE INPUT 
/YES OR N0TTT7 
/NEITHER ALL AGAIN 
/MANUAL TEST 
/ASK "ARE YUU SURE" 



PAGEI 0051 



/RKat/HKtL DiT* ReLltaiLITT PRUHUnt nU-ea-DMRKC-H 



PtLlU Vl«2t 



PASEi aes2 







/*I)UUT 

/ 
»<4NU4Li 


CONSTtNl 


fItLOl 


esii 


4455 


, PRNTER 




032] 


3484 




MESS 




2324 


4444 




RECEIV 




es2s 


4437 




YE5N0 




e326 


5322 




JMP 


M4NU4L 


2327 


5345 




JMP 


ASKNXl 


0330 


4431 




SP4CE 




8331 


4432 




ONEZN 




0332 


8878 




0878 




8333 


5322 




JMP 


M1NU4L 


a33< 


7184 




CLL R«l. 




833! 


7886 




RTL 




e33t 


3168 




DCt 


sprio 


8337 


1168 




T»0 


SPPLO 


8348 


1143 




T»D 


M««rLD 


8341 


7788 




8M« CL« 




8342 


5322 




JMP 


MtNUlL 


8343 


7348 




CL« CLt 


CM« 


8344 


3778' 


/ 


DCt 


PLOFLG 






/ 

/IN7CI)1E«TC ABUUT CONC 


8345 


4455 


/ 

tSKNIl, 


PRNTER 




834b 


3418 




MES9 




8347 


4444 




RECEIV 




8358 


4437 




YESNO 




8351 


5345 




JMP 


4SKNX1 


8352 


5767' 




JMP 


48KNX2 


8353 


4431 




8P4CE 




8354 


4432 




ONEIN 




8355 


0818 




8018 




8356 


5345 




JMP 


•SKNXl 


8357 


5766' 


/ 
K5485, 


JMP 


S4VE1 


8368 


5485 


5405 




8361 


3167 


LNKDC*, 


DC4 


SVUNK 


8362 


3166 


tcuct, 


DCt 


S4V4C 


8363 


2384 


BRKRtT, 
/ 


RETURN 




8366 


8488 






8367 


8486 








8378 


3572 








8371 


8513 








8372 


1484 








8373 


2681 








8374 


0522 








8375 


8688 








8376 


2738 








8377 


2070 

0480 


PiGE 

/ 
/ 







/PRINT "FIELD?" 

/RECEIVE Y OR N 

/CHECK FOR Y OK N 

/NEITHER Y OR N 

/WAS 1 N, ASK ABOUT NEXT 

/SPACE OUT ONE 

/BET 1 OCTAL 

/LIMITS 

/INPUT ERROR ASK AGAIN 



/SAVE INPUT 

/COMPARE TO MAXIMUM 

/U.K.? 

/INPUT ERROR 

/SETUP MELO FLAG 



/PRINT "TRACK?" 

/RECEIVE Y OR N 
/CHECK FOR Y OR N 
/ERROR, ASK AGAIN 
/N, ASK ABOUT NEXT 

/RECEIVE 1 IN OCTAL 

/LIMITS 

/ERROR, ASK AGAIN 

/TO SAVE SOME ROOM, 



/RKSE/RKSL DATA RELIABILITY PRU8RAMI MU>8a-DHRKC>H 







/INTERI6ATE ABUUT CONSTANT 






/BLOCK 

/ 

SAVEl, 


LENBTHl 




0488 


3161 


DCA 


SPTRKl 


0401 


4433 




FORIN 




8482 


5777" 




JMP 


ASKNXl 


8483 


3162 




DCA 


SPTRK2 


8484 


7340 




CLA CLL 


CMA 


8405 


3776' 


/ 

ASKNX2i 


DCA 


TRKFLG 


8486 


4455 


PRNTER 




8487 


3424 




MESH 




8418 


4444 




RECEIV 




8411 


4437 




YESNO 




8412 


5286 




JMP 


ASKNX2 


0413 


5225 




JMP 


ASKNX3 


0414 


4431 




SPACE 




0415 


4432 




ONEIN 




0416 


8010 




8010 




8417 


5286 




JMP 


ASKNX2 


0428 


7648 




SZA CLA 




8421 


7348 




CLA CLL 


CMA 


8422 


3164 




OCA 


SPBLK 


8423 


7348 




CLA CLL 


CMA 


0424 


3775' 


/ 


OCA 


MUPFLS 






/ 

/INTERIGATE ABUUT CONSTANT 






/SECTORSl 




0425 


4455 


ASKNX3, 


PRNTER 




8426 


3414 




MES10 




8427 


4444 




RECEIV 




8438 


4437 




YESNO 




8431 


5225 




JMP 


ASKNX3 


8432 


5264 




JMP 


ASKNX5 


0433 


4431 




SPACE 




0434 


4432 




ONEIN 




8435 


8818 




081il 




8436 


5225 




JMP 


ASKNXj 


8437 


7184 




CLL RAL 




0448 


7886 




RTL 




8441 


3163 




DCA 


SPSEC 


8442 


4432 




ONEIN 




0443 


8078 




8078 




0444 


5225 




JMP 


ASKNXJ 


0445 


1163 




TAD 


SPSEC 


8446 


3163 




DCA 


SPSEC 


8447 


1164 




TAD 


SPBLK 


8450 


7648 




SI4 CLA 




8451 


5254 




JMP 


.*i 


0452 


1160 




TAD 


5PFL0 


0453 


7648 




SZA CL» 




0454 


1865 




TAD 


K0810 


8455 


11164 




TAD 


K0007 
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/SAVE EXTENDED TRACK BIT 
/GET FOUR IN OCTAL. 

/ERROR, ASK AGAIN 

/SAVE CYL., SURFACE, AND SECTOR 

/SETUP TRACK FLAG 

/PRINT "BLOCK LENGTH?" 

/RECEIVE INPUT 

/CHECK FOR Y OR N 

/ERROR, ASK AGAIN 

/N, ASK ABOUT NEXT 

/Y, SPACE OUT 1 

/RECEIVE 1 IN OCTAL 

/LIMITS 

/ERROR, ASK AGAIN 

/SET HALF BLOCK? 

/YES 

/SETUP BLOCK NUMBER 

/SETUP BLOCK FLAG 



/PRINT "EXTRA SECTORS? 

/RECEIVE INPUT 

/CHECK FOR Y OR N 

/INPUT ERROR 

/N, ASK ABOUT NEXT 

/SPACE OUT 1 

/RtVElVE 1 IN OCTAL 

/LIMITS 

/EHRUR, ASK AGAIN 



/SAVE IT 

/RECEIVE 1 IN OCTAL 

/LIMITS 

/INPUT ERROR, ASK AliAIN 

/AUD IN LAST 

/SAVE ALL 

/BLOCK LENGTH B?7?? 
/NO LIHIT 15 17. 

/FIELD iJ????? 
/LIMIT IS 17, 
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/RKIt/RKek DtTA RELItaiLITr PRUERtMl MU.II«>DHflKC>H 



ton 


7140 




CtL CHA 




B157 


1163 




TAD 


BPSEC 


B46e 


7630 




SZL CLA 




e4bt 


5225 




JMP 


ABIINX3 


B«t2 


7340 




CLA CUU 


CMA 


0«t3 


3774* 


/ 


DCA 


BECPLG 






/ 

/INTER1S«7E iBUUT 'OPCI 






/BtLtCT 
/ 

A9KNXS, 


OATA'l 




8«t4 


4455 


PRNTER 




e«*5 


3433 




MCSt3 




0466 


1322 




TAB 


R4NJMB 


B467 


3773' 




DCA 


SHDAT 


B4re 


4444 




RECEIV 




1471 


4437 




VE8N0 




8472 


5264 




JMP 


ABKNX3 


8473 


5313 




JMP 


ABKSUR 


0474 


1346 




TAD 


KBKP 


947J 


3773' 




DCA 


auDAT 


8476 


1105 




TAD 


M12 


0477 


3111 




DCA 


TRASHl 


0500 


7340 




CLA CLL 


CMA 


0901 


1151 




TAD 


DATPOT 


0!Bi 


3010 




DCA 


AUTOie 


0S03 


4457 




CRLP 




0504 


4433 




rORIN 




0505 


5264 




JNP 


A9KNX5 


0506 


3410 




DCA I 


AUTOI0 


0507 


ilU 




laz 


TRABMl 


0510 


5303 




JMP 


• •5 


0511 


7340 




CLA CLL 


CMA 


0512 


3157 


/ 

/»»K ir 

/ 
ASKBUR, 


OCA 


OATfLB 






HE'S SURE) 


0513 


4455 


PRNTER 




0514 


3436 




HEB14 




0515 


4444 




RECEZV 




0516 


443T 




TEBNO 




05J7 


5313 




JMP 


ABKBUR 


0520 


5772' 




JMP 


BTRTEt 


0521 


5771- 




JMP 


RUN 


0522 


4426 


RANJMBi 


GENDAT 
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/CUMPARE StCTOH INPUT! 
/IN LIMITStTT 
/NUi INPUT ERRDR 
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0523 0000 

0524 1022 

0525 T7B0 

0526 2323 

0527 5723 



/SETUP SECTOR FLAG 



/PRINT "OATAT" 

/SET INSTRUCTION SWITCH 

/RECEIVE INPUT 

/T OR N 

/ERROR) ASK AGAIN 

/ASK 'ARE rOU SURE' 

/SET INSTRUCTION SWITCH 

/SETUP WORD COUNTER 

/GET POT POINTER 



/RECEIVE 4 IN OCTAL 
/INPUT ERROR, ASK AGAIN 
/SAVE DATA 
/UPDATE COUNTER 
/GET NEXT 

/SETUP DATA FLAG 



/PRINT "ARE YOU SURE' 

/GET INPUT 

/Y OR N 

/INPUT ERROR 

/ALL AGAIN 

/START DATA TESTING 



/THIS ROUTINE rESTS FOR BEING UN APT, 

/IF ON APT RETURN IS PLUS ONE, IF NOT RETURN IS PLUS TWO. 

CKEK22i B 

TAD 22 

»HA CLA /ON APTT 

ISZ CMEK22 /NO, UPDATE RETURN, 

JMP I CMEK22 /«ND RETURN, 



/RKBE/RK8L DATA RELIABILITY PRUGRAMI MU.es>DHRKC-H 
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0530 
0531 
0532 
0533 
0534 
0535 



0536 
0537 

0540 



0542 
0543 
0544 
0545 
0546 
0547 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 



4424 
7410 
5730 

6002 
6201 



6272 
4741 
5730 



0541 6500 



0000 
3123 

1123 

6746 
7610 
4576 
1122 
7110 
7630 
1016 
6740 
7610 
4576 
5742 



/ROUTINE TO NOtlFY APT, 

/ 

KTIME, 

CHK22 

SKP 



JHP 
lOF 
CDF 



KTIME 



CIF 70 

JMS I K65B0 

JHP I KTIME 
/ 

K6S00, 6500 
/ 
/ 

/SUBROUTINE TO LOAD COMMAND REIilSTER 
/ 
LDCM, 



/ON APT, 

/NOT ON APT, 00 ABOUT NORMAL RUN, 
/TURN INTERUPT SYSTEM OFF 
/DATA FIELD SHOULD ALRAYS 
/BE ZERO IN PROGRAM RUN, 
/CHANGED TO CURRENT DATA FIELD, 



/RETURN, 





DCA 
TAD 
OLDC 

SKP CLA 
JMS I 
TAD 

CLL RAM 
SZL CLA 
TAD 
OLSC 
SKP CLA 
ERHLT0, JMS I 
JHP I 



IOT61 
KSKP, 
ERMLT61 



1010, 



CMREG 
CMKEG 



BGHLT 
EXREG 



BGHLT 
LOCH 



/LOAD COHMAND REGISTER 



/LOAU EXT, DRIVE 



/SKIP TRAP lOTB 
/EXIT 



/SUBROUTINE TO ISSUE "DCLR" CLEAR lOT 



0560 


0000 


CLDR, 





0561 


6742 


I0T2, 


DCLR 


0562 


5760 




JHP I CLUB 


0563 


4576 


ERHLT2, 


. JMS I BGHLT 


0571 


0600 






0572 


0224 






057] 


2601 






0574 


3574 






0575 


3575 






0576 


3573 






0577 


0345 








0600 


PAGE 

/ 








/ 
/SETUP 


ADORESSlNIi, COMMAND 






/AND DATA PARAMETERS! 



/DCLH "CLEAR lOT' 

/EXIT 

/ERRUR SKIP TRAP 



/RKet/RKSL DtTA RbLItSlLITir PRUGKtni MU-ea-OHRKC-H 
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/HIKE CIELDJ 
/ 

RUN, LAS 






etzt 


4406 






efcei 


0016 


AND 




K0200 


etez 




9Z« 


CL« 




em 




STPMLT, MLT 






0604 


1777 ' 


TAO 




fLDFLG 


060S 




SNA 


CLA 




0t0t 




JMP 




1*3 


0607 




TAO 




SPPLD 


0610 




JMP 




HNPLD 


06U 




CLA 


CLL 


lAC 


06ia 




TAD 




MASFLD 


0613 




SNA 


CLA 




061« 




JHP 




RNPLO 


061S 




RANGEN 




0616 




AND 




K0e70 


0617 




SNA 






0620 




JMP 




RNfLO 


0621 




DCA 




INTCM 


0622 




TAD 




INTCM 


0623 




TAD 




NAXPLD 


0624 




SPA 


CLA 




062S 




JMP 




RNPL0«1 


0626 




TAO 




"AXFLO 


0627 




CM4 






0630 




RNPLD, DCA 

/ 

/MAKE BLOCK 

/ 

TAO 




INTCM 






LtNGTMl 


0631 


1776' 




MLPPLG 


0632 




SNA 


CLA 




0633 




RANGEN 




0634 




TAD 




SP0LK 


0635 




ANO 




K0100 


0636 




TAD 




INTCM 


0637 




DCA 




INTCM 


0640 




TAD 




INTCM 


0641 




ANO 




K0100 


0642 




8ZA 


CLA 




0643 




TAD 




Ke200 


0644 




TAD 




K7400 


0645 




DCA 




TRASH2 


0646 




TAD 




TRA8H2 


0647 




CIA 






0650 




DCA 




UPDATE 


0651 




TAD 




INTCM 


0652 




ANO 




Ael70 


0653 




SZA 


CL» 




0654 




TAO 




K0B10 


0655 




TAD 




K0007 


0656 




DCA 




TRASMl 



/GET THE SWITCMES, 

/MASK MALT SW. 

/TIME TO MALTT 

/MALT FROM 3HR4>1, 

/GET FIELD FLAG 

/HAS IT SETT 

/NU, USE RANDOM FIELD 

/TESi GET OPERATOR FIELD 

/GO 

/GET MAXIMUM FIELD POINTER 

/ANY FIELDS THERE 

/NO EXTENDED FIELDS TO USE 

/TESi GET A RANDOM FIELD 

/MASK 

/COULD BE 

/WAS DON'T HAVE TO CHECK LIMITS 

/SAVE FIELD FOUND 

/ADD IN MAXIMUM FIELD POINTER 
/IN LIMITST7TT 
/YES, USE IT 

/NO, USE MAXIMUM IN THE MACHINE 



/GET BLOCK FLAG 
/HAS IT SETTTTt 
/NO, USE RANDOM 

/MASK 

/INITIAL HALF BLOCK BIT •••• 

/MASK 

/HALF BLOCK SETTtT? 

/YES, SETUP WC POINTER 

/NC SUILOER 



/UPDATER FOR FRREG 

/MASK FIELD BITS 

/WERE THERE ANY 

/YES 

/MAKE MAXIMUM SECTOR POINTER 

/SAVE IT 



/MAKE AMOUNT or SECTORS 
/TO TRANSFER! 



/RK8E/RK6L DATA RELIABILITY PRUGRANI MO.BS-DHRKC-H 
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0657 


1775' 




TAD 




SECFLG 


0660 


7650 




SNA 


CLA 




0661 


4440 




RANGEN 




0662 


1163 




TAD 




SPSEC 


0663 


0111 




AND 




TRASMl 


0664 


3147 




DCA 




CONSEC 


0665 


1147 




TAD 




CDNSEC 


0666 


7040 




CMA 






0667 


3111 


/ 

/HAKE 
/ 


DCA 




TRASMl 






HORD COUNT 1 


0670 


1112 


TAO 




TRA8H2 


0671 


2111 




ISZ 




TRASHJ 


0672 


5270 




JMP 




.-2 


0673 


3127 


/ 

/MAKE 

/ 


DCA 




"CKEG 






CURRENT ADDRtSSl 


0674 


4440 


RANGEN 




0675 


3126 




OCA 




CAREG 


0676 


1136 




TAO 




INTCM 


0677 


0014 




AND 




KB070 


0700 


7640 




SZA 


CL» 




0701 


5317 




JHP 




FILLUP 


0702 


1146 




TAD 




BGNBUF 


0703 


7140 




CMA 


CLL 




0704 


1126 




TAO 




CAREG 


0705 


7620 




SNL 


CLA 




0706 


5315 




JMP 




CONCUR 


0707 


1127 




TAO 




"CREG 


0710 


7041 




CIA 






0711 


1126 




TAO 




CAREG 


0712 


1016 




TAO 




K020B 


0713 


7630 




SZL 


CLA 




0714 


5317 




JMP 




FILLUP 


0715 


1146 


CONCUR 


, TAD 




BGNBUF 


0716 


3126 




DCA 




CAREG 






/ROUTINE TO 


FILL ANO CF 


0717 


4425 


FILLUP 


, KTICK 




0720 


4434 




SETGEN 




0721 


1106 




TAO 




H« 


072: 


3137 




DCA 




STATRY 


0723 


4435 


REFILL 


. SETFLO 




0724 


3325 




DCA 




.♦1 


0725 


7402 




MLT 






0726 


1141 




OCA 




CHKSAV 


0727 


4427 


MEWRD, 


RANDAT 




0730 


3111 




UCA 




TRASHl 


0731 


nil 




TAD 




TRASHl 


0732 


3411 




DCA 


I 


AUTOll 


B7J3 


7100 




CLL 







/GET SECTOR FLAG 

/WAS IT SETTTTT 

/USE RANDOM 

/GET OPERATOR INPUT 

/MASK OUT 

/SAVE 



/CONSECUTIVE TO DO 



/COMPUTE INITIAL NC 



/UPDATE BY BUILDER 
/INITIAL WORD COUNT •••• 



/GENERATE RANDOM CA 
/SAVE IT 

/MASK FIELD BITS 
/EXTENDED FIELD7TTT 
/INITIAL CA 0,K.ta«« 



/GREATER THAN PROGRAM*! 
/NU, USE CONSTANT VALUE 
/GET WORD COUNT 

/AUD IN CA 

/"ITHIN B0UND877T7 
/YES, INITIAL CA 0,K,««|> 
/NU, USE PHDGNAM«l 
/SAVE IT 



/NOTIFY APT IF NEED BE. 
/SETUP AND SAVE GENERATER 

/SETUP TRY COUNTER 

/FIELD* BUFTAL* AUTU 11* 12 

/FIELD TO BUFfER IN AC 

/CUF TO BUFFER 

/8TAKT KITH 

/GENERATE DATA 

/SAVE OUTPUT "OKO 

/UET HACK HORU 

/STOKE IN BUFFER 



/RK«t/HK«L OlTt RELKSILZTr FRUBKAM) HU.il««OHRKC>H 



tin 


MM 




T»0 


TR4SH1 


8TJS 


M4J 




T»D 


CNKStV 


erib 


7418 




• ZL 




BT37 


7881 




XAC 




arte 


J141 




DC* 


CHKS4V 


«T«l 


»M7 




ISZ 


BUFTAL. 


0r«8 


5]tr 




JMP 


NENRD 


BT«J 


b«81 




COF 


8 


«T«4 


MkS 




T»D 


ERFIB 


ar45 


7tS8 




SNA CL* 




BT«» 


5774* 




JHP 


POkNCX 


BT4T 


5773* 


/ 

A8I78, 


JMP 


RENRT 


ersa 


8178 


8178 








/auBROUTINE TO 


ISSUE 'DSKP' DISK SKIP 


8751 


8888 


8DKP, 


8 




8792 


6741 


lOTl, 


D8KP 




B7SJ 


7418 




*KP 




8754 


«JS1 




ISZ 


SOKP 


8755 


5751 


/ 

/PL«CE 

1 

0»T1, 


JMP I 


SOKP 






FOR 0«T4 


IN MANUAL MODE 


8756 


8888 


8888 




8757 


8888 


D«TJ, 


8888 




87ke 


8888 


0»T3, 


8888 




87»t 


8888 


D4T4, 


8888 




tin 


8888 


D«TSi 


8888 




e7b] 


8888 


D4Tk> 


•8*8 




87»4 


8888 


D»T7, 


8888 




87k5 


88(8 


0476. 


8888 




87t6 


8888 


D*T9, 


8888 




8767 


8888 


04T18, 


8888 




8778 


8888 


D4T11, 


8888 




877t 


8888 


0»TI», 


8888 




8773 


1847 






8774 


1888 








8775 


3574 








877» 


3575 








8777 


3578 

1888 


PtGE 







PALIK V148A 83-FEB-77 

/BtT BACK WORD 
/ADD IN LAST 
/LINK SETTt 
/ADD IT IN 
/SAVE FOR NEXT 
/UPDATE BUFFER TALLT 
/MORE NORDS TO GO 



/ERROR FLAG SETTT7T 

/POLE DRIVES 

/TESi MUST BE A WRITE ERROR 



PAGE l>)4 



PAGEI BBSS 



1888 8115 

18BI 1115 

1888 4436 

1883 5888 

1884 1115 

1885 7118 

1886 8861 



/ 

/ROUTINE TO SELECT DRIVE NO, 
/StOUENClAL SELECTION 8, I, 8,1, a, |, ETC. 

POLNEX, ISZ POLDSK 
POLDSK 



ISZ 

TAD 

SELCHK 
JMP 
TAD 

CLL RTK 
AND 



POLNEX 
POLDSK 



/DISK SKIP lOT 
/DID NOT SKIP 



/UPDATE POLE POINTER 
/GET POINTER 

/CHECK IF DISK ON SYSTEM, 
/NO, TRY NEXT DRIVE 



/RK8E/RKSL DATA RELIABILITY PRUGRAMI MU.BB-DHRKC-H 



1887 


3188 


/ 

/DRIVE 


DCA 


EIREG 






COMPLETED, START 






/RKITE 


SEOUENCtl 






/SELECr DISK AUDRESS, 


1818 


1115 


GOTIT, 


TAD 


POLDSK 


IBM 


8868 




AND 


K8B83 


1818 


7184 




CLL RAL 




1813 


1136 




TAD 


INTCM 


1814 


3136 




OCA 


INTCM 


1815 


1777' 




TAD 


TRKFLG 


1816 


7658 




SNA CLA 




1817 


4448 




RANGEN 




1888 


1161 




TAD 


SPTRKl 


1881 


8861 




AND 


K8B81 


1888 


1116 




TAD 


INTCM 


1883 


3136 




DCA 


INTCM 


1884 


1777" 




TAD 


TRKFLG 


1885 


7658 




SNA CLA 




1886 


4448 




RANGEN 




1887 


M68 




TAD 


SPTRK8 


1838 


3184 




DCA 


INYDA 


1831 


1777" 




TAD 


TRKFLG 


1838 


7648 




SZA CLA 




1833 


5847 




JMP 


REKRT 


1834 


1136 




TAD 


INTCM 


1835 


7818 




RAR 




1836 


7688 




SNL CLA 




1837 


5847 




JMP 


REWRT 


1848 


1145 




TAD 


MAXTRK 


1841 


1184 




TAD 


INTOA 


1848 


7638 




SZL CLA 




1843 


5847 




JMP 


RENRT 


1844 


1184 




TAD 


INTDA 


1845 


7848 




Cn« 




1846 


3184 


/ 

/"KITE 


OCA 


INTDA 






INFORMHIUM 






/CLEAR 
/ 

RE«RT, 


BUFFER UN THE FLYl 


1847 


4441 


DISKGO 




1858 


4488 




4488 




1851 


5863 




JMP 


REREAD 


1858 


7348 




CLA CLL 


CMA 


1853 


3165 




DCA 


ERFLG 


1854 


4448 




RESRAN 




1855 


8137 




ISZ 


STATRY 


1856 


5776' 


/ 

/CHECK 

/ 


JMP 


REFILL 






FOR LDQ»' 


ON WRITEI 


1857 


4486 


LAS 




1868 


7718 


TRYTIM, 


SPA CLA 




1861 


5775' 




JMP 


REFILL-i 



PALU V148A 81.FEB«77 

/SET EXT, DRIVE BIT 



PAGE 1-15 



PAGEI 8859 



/GET DRIVE NO. 

/MASK 

/MOVE TO »«1B, 

/ADD IN OTHER, 

/SAVE INITIAL COMMAND, 

/GET TRACK FLAG 

/KAS IT SETTJTT 

/GET RANDOM DA, 

/GET OPERATOR CONSTANT INPUT, 

/MASK EXT, BIT, 

/ADD IN OTHER, 

/SAVE COMPLETE INITIAL COMMAND. 

/GET TRACK FLAG 

/HAS IT SET7JTJ 

/USE RANDOM 

/GET INPUT 

/SAVE INITIAL DA, 

/INPUT BY OPERATORT 
/LET MIM FAILt? 



/EXT BIT SETT 

/NO, DON'T LIMIT OA. 



/8E0ND MAXIMUM LIHITT 
/NO, DONT LIMIT. 



/YtS, SET TO LEGAL LIMIT, 



/GO URITE 

/"RITE DATA POINTER 

/"KITE O.K. 

/SET WRITE ERROR FLAG 
/RESET GENERATOR 
/UPDATE WRITE RE-TRY 
/THY AGAIN 



/UtT SmTCM e 
/LOOK ON WR1TE77TT 
/YES, TRY WRIU AGAIN 



/RKet/HmL D»TA RtLUBILnt PBUORiMI MU-IOS-OHRKC-M 



tebs 


5351 




JMP 




5THREL 


1063 


1268 


RENE<D 


, TAD 




TRTTIH 


ie64 


3171 




DC* 




TRYCNT 


1065 


3165 




DCt 




tRFLS 


1966 


1186 




TAD 




H4 


1867 


3137 




DCA 




STATRY 


leTe 


1186 




TAD 




H4 


1871 


3148 




DCA 




DATTRY 


1B72 


3155 


/ 

/HttO 


OCA 




CHCCNT 






INfORMATJONt 






/CHECK 

1 

ROTRY, 


SUFPER UN THE FUYl 


1B73 


4441 


DI8KG0 




1874 


8488 




8482 


1 




1B75 


7618 




9KP 


CLA 




1876 


5385 




JHP 




ROSTA 


1877 


3155 


/ 

/CHECK 

/ 


DCA 




CRCCNT 






DATA 


ON 


NO STATUS ERR 


lies 


4774* 


JMS 




DTCHK 


uei 


5324 




JHP 




RERUN 


1182 


2148 




ISZ 




DATTRY 


1183 


5273 




JHP 




RDTRY 


1184 


5323 




JHP 




RERUN. 1 


1185 


1121 


RDSTt, 


TAD 




9TKEG 


1186 


886! 




AND 




K88ie 


1187 


7458 




SNA 






1118 


5328 




JHP 




UPTRY 


nil 


3156 




DCA 




CRCFLE 


1112 


215! 


/ 

/CHECK 
/ 


laz 




CRCCNT 






DATA 


AFTER CRC ERRORI 


1113 


4774' 


JHS 




OTCHK 


1114 


7618 




SKP 


CLA 




Ills 


7348 




CLA 


CLU 


CHA 


1116 


3165 




DCA 




ERFLC 


1117 


7418 




SKP 






1128 


3155 


UPTRY, 


DCA 




CRCCNT 


1121 


2137 




ISZ 




STATRY 


1122 


5273 




JHP 




RDTRY 


1123 


3165 




DCA 




ERPLS 


1124 


315! 


REKUN, 


DCA 




CRCCNT 


1125 


3156 




DCA 




CRCFLE 


1126 


4773- 




JHS 




CKTIH 


1127 


1165 




TAD 




tRFLE 


1138 


76!8 




SNA 


CLA 




1131 


5334 




JHP 




.*i 


1132 


2171 




ISZ 




TRYCNT 


1133 


5266 


/ 

/CHECK 
/ 


JHP 




ReHEA0»3 






FOR LOOP 


ON READ! 



yi42A 23-FEl)-77 418! 
/RtSHORE ALL UNIVES ON ERROR 



/SETUP FOR SOFT ERROR RETRY 
/CLEAR ERROR FLAE 



/SETUP TRY COUNTER 



/SETUP TRY COUNTER 
/CLEAR CRC COUNTERUU 



/REAU DATA 
/READ DATA POINTER 
/DATA READ OiK, 
/STATUS ERROR 
/CLEAR CRC COUNTeRl 



/CHECK DATA 

/DATA O.K. 

/UPDATE READ RE'TRY 

/TRY AEAIN 

/TRY TO SEEK IT 

/BET STATUS READ 

/HASK CRC 

/C»C ERRORt?Tt 

/NU, TRY READ AGAIN 

/YES( SET FLAE 

/UPDATE CRC POINTER 



/CHECK DATA 

/IS A HARD ERRDRI 

/SET RETRY COUNTERI 

/SETUP FOR 64 RETRYS IF AC«7777 

/CHECK ON RETRYUM 

/UPDATE TRY POINTER 
/TRY AEAIN 
/IS A HARD ERROR 
/CLEAR CRC COUNT 
/CLEAR CRC FLAG 
/CHECK TIHC POINTERS 

/IS IT 64 RETRYS FOR SOFT ERRORT 
/NU DON'T BOTHER 
/YES, UPDATE RETRY COUNTER 
/TRY AGAIN 
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/RKSE/RKSL DATA RELIABILITY PRUORAHI HU>»S>DHRKC-H 



1134 


4486 




LAS 






1135 


7184 




CLL RAL 






1136 


7718 




SPA CLA 






1137 


5263 




JHP 


REREAD 




1148 


1137 




TAD 


STATRY 




1141 


7658 




SNA CLA 






1142 


5351 




JHP 


STRREL 




1143 


316! 


/ 
/CHECK 


DCA 


ERFLG 








FOR TYPE 


STATUS 








/REPORI 1 






1144 


4486 


/ 


LAS 






1145 


8817 




AND 


Ke48e 




1146 


7648 




SZA CLA 






1147 


4772' 




JHS 


TPSTA 




1158 


5771- 




JHP 


RUN 








/RESTORE DRIVE 


AFTER ERROR 




1151 


1123 


STRREL, 


TAD 


CHREG 




1152 


4443 




RECAL 






1153 


3771' 




JHP 


HUN 








/ 

/ROUTINE TO DETERMINE IF TIHINB 


NEEDS 


11S4 


8888 


XKTICK, 


8 






1155 


4424 




CHK22 






1156 


7418 




SKP 






1157 


5754 




JHP J 


XKTICK 




1168 


6281 




CDF 


8 




1161 


21!8 




ISZ 


CLKCNT 




1162 


5366 




JHP 


EXTICK 




1163 


1188 




TAO 


K776B 




1164 


3158 




DCA 


CLKCNT 




116! 


4778' 




JHS 


KTIME 




1166 


6281 


exllCK, 


CDF 8 






1167 


5754 




JHP I 


XKTICK 




1178 


8538 










1171 


8688 










1172 


3888 










1173 


2458 










1174 


1688 










117! 


8721 










1176 


8723 










1177 


3573 
1288 


PAGE 
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/GET SWITCH 1 

/LOOPTTtJ 

/YESi LOOP 

/TEST FOR HARD ERROR 

/YES 

/CLEAR ERROR FLAG 



/HASK 

/TYPE STATUS REPORTITTT 

/YES 

/DU NEXT DRIVE 



/GET DRIVE NO, 

/RESTORE 

/START NEXT DRIVE 

10 BE FOR APT SYSTEH, 



/TEST FOR APT 

/NU, RETURN TO NORHAL RUN 

/LONG COUNTER FOR APT 
/NURH»L HETUIW 
/INIT COUNTER 

/NUTiFY APT 
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1288 

1281 



7881 



I 

/ERROR HANULERI 

/UPUATt "SOFT" DK "HARD" TALLY51 

/PRINT ERROR TEXT AND DATAl 

/CHECK INHIBIT EKKOR SHI 

/ 

ERHO, 8 



/UPDATE AC FLAG 



/»l<et/RKaL D»T» HtLIiBILITY PRUGR*»I NO-bb-omRKC-M 



P*L1» Vi<l2» 23-PEB-77 



tie: 



ptGEi em 



Hit 


3374 




DC< 


PCNTR2 






/COMPUIE WAY Tl. 


1 "HARD", 


1883 


1377 


/ 


T»0 


K7773 


1204 


3375 




OCA 


PCNTR3 


1209 


1123 




TAO 


CMKES 


1206 


0063 




AND 


KilU06 


1287 


7170 




CLL CHL 


CMA RA) 


1210 


3373 




DCA 


PCNTRl 


1211 


1062 




TAO 


K0I>03 


1212 


2373 




ISZ 


PCNTm 


1213 


5211 




JMP 


i>2 


12U 


1153 




TAD 


5TAP0T 


1215 


3373 




DCA 


PCNTRl 






/ 

/DtTERnlNE IF tRROR IS 


1216 


1156 


/ 


TAD 


CRCPLC 


1217 


7650 




SNA CLA 




1220 


5251 




JMP 


NTSOPT 


1221 


1600 




TAD I 


ERRO 


1222 


7650 




SNA CL> 




1223 


5255 




J"P 


NTtRR 


1224 


1125 




TAD 


DAREE 


1225 


0066 




AND 


KOOIT 


1226 


7041 




CIA 




1227 


1131 




TAD 


ASHES 


1230 


7640 




8ZA CUA 




1231 


5251 




JMP 


NTSOFT 


1232 


7340 




CLA CLL 


CMA 


1233 


1155 




TAD 


CRCCNT 


1234 


7450 




SNA 




1235 


5245 




JMP 


SOFT 


1236 


1110 




TAD 


K7775 


1237 


7650 




SNA CLA 




1240 


2373 




ISZ 


PCNTRl 


1241 


1773 




TAO I 


PCNTRl 


1242 


7440 




azA 




1243 


1101 




TAD 


H7777 


1244 


5254 




JMP 


NTERR-l 


1245 


1101 


50f T, 


TAD 


RT7T7 


1246 


1773 




TAD I 


PCNTRl 


1247 


3773 




DCA I 


PCNTRl 


1250 


2373 




ISZ 


PCNTRl 


1251 


1101 


NTSOFT, 


, TAD 


K7777 


1252 


2773 




ISZ I 


PCNTRl 


1253 


7610 




SKP CLA 




1254 


3773 


/ 
/CHECK 

/ 

NTERR, 


DCA I 


PCNTRl 






INHIBIT SWl 


1255 


4423 


JMS I 


KAtRRO 


1256 


4406 




LAS 




1257 


7106 




CLL RTL 





TALL7SI 



/SAVt NON-RECOVERABLE POINTERl 



/LINfc COUNTER 
/SET LAST COMMAND 
/MASK DRIVE NUMBER 

/SETUP COUNTER 



/COMPUTE WAT TO BUFFER 

/POINTER TO BUFFER 

OR "SOFT" I 

/BET CRC FLAB 

/CMC ERHORTTTT 

/NO, MAS OEFINITLY A HARD ERRORl 

/BET ERROR POINTER! 

/"AS IT FIRST TIME? 

/NO ERROR, ADDITIONAL CRC DATA! 

/COMPARE FAILING SECTOR TO 

/SECTOR WHERE DATA ERROR 

/UCCURRCDI 

/SAME SECTORT 
/NO, "MARO" ERROR 

/GET CRC COUNTER 

/WAS THIS FIRST POSSIBLE "SOPT"T 
/YES, UPDATE "SOFT" TALLY) 
/CHECK IF NONRECOVERABLE "SOFT"! 
/WAS ITT 

/NO, DUMP "SOFT" TALLYI 
/OTHERWISE DUMP "HARD" TALLYI 
/OUNT GO BACK WAROSIIIIIll 
/BUMP APPROPRIATE TALLYll 
/DUMP ITI 

/REDUCE HARD ERROR COUNT 
/YES, UPDATE POINTER 
/UPDATE ERROR COUNT 
/MOLU AT 7777 



/REPORT ERROR TO APT IF REQUIRED 



/RKBE/HKBL DATA RELIABILITY PRUGRAMI MU.|1S>DHRKC-H 



1260 77le 

1261 S356 



1262 1600 

1263 7690 

1264 5355 
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1269 

1266 

1267 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1340 



4457 

4457 

1374 

76ae 

5275 

7340 

4455 

3335 

1600 

1376 

3120 

1520 

3304 

7340 

4455 

7402 

7340 

4499 

3303 

4457 

1200 

3120 

2200 

1600 

3371 

2200 

1172 

3374 

1372 

3010 

1105 

3373 

137! 

7500 

5363 

7104 

3371 

2375 

7610 

4457 

1374 

2374 

2374 

3343 



SPA CLA 

JMP 
/ 

/CHECK FOR NO 
/ 
DOHEAO, TAO I 

SNA CLA 

JMP 
/ 

/TYPE ERROR MES 
/ 

CRLF 

CRLF 

TAO 

SZA CLA 

JMP 

CLA CLL 

PRNTER 

MES4 

TAU I 

TAD 
DCA 

TAD I 

DCA 

CLA CLL 

PRNTER 

MLT 

CLA CLL 

PRNTER 

MESO 

CRLF 

TAO 

DCA 

ISZ 

TAO I 

OCA 

ISZ 

TAD 

OCA 

TAD 

DCA 

TAD 

OCA 

TAD 

SMA 

JMP 

CLL RAL 

DCA 

ISZ 

SKP CL« 

CRLF 

TAD 

ISZ 

ISZ 

UCA 
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ERR0EX*1 
EADER ON SECOND 

ERRO 

ERROEX 
SABE) 

PCNTR2 

• *4 
CMA 



ERRO 

HEOTAD 

PCREG 

PCKEG 

• *i 

CMA 



/INHIBIT ERRORSTTTt 
/YES 



DATA ERRORl 



8TRAUT, 



ERRO 

PCREG 

ERRO 

ERKO 

ESAVE 

ERRO 

XTEXT 

PCNTR2 

XREG 

AUTOIO 

M12 

PCNTRl 

ESAVE 

NOTEX 

ESAVE 
PCNTR3 



PCNTR2 
PCNTR2 
PCNTRS 



/GET TEXT POINTER 
/DATA ERROR? 
/EXIT 



/GET NON-RECOV. FLAG 

/WAS IT SET 

/NO UON'T TYPE IT 

/PRINT "NON.RECOVERABLE " 

/GET TEXT POINTERl 

/MAKE ERROR HEADER POINTERl 

/SAVE POINTERl 

/GET CORRECT TEXTI 



/PRINT HEADER 



/PRINT "ERROR" 



/UPDATE FOR RETURN 



/COUNTER FOR • OF HEADS 
/BET TEXT POINTER 



/NUT THIS ONE 



/UPDATE LINE FILL COUNTER 
/NU CRLF 



/btT TEXT ntSSAGE POINTER 
/Srowe FOR PHNTtR 



/»K8t/»««L 0*T* RtLI«BILITT PRUGRiMl nU-UB-OHRKC-H 



1341 


7340 




CLt CLL 


CMA 


1342 


4455 




PRNTER 




1343 


7402 




HLT 




1344 


1410 




T*D I 


AUTOIB 


134! 


4456 




UCTEL 




1346 


2373 


<G«IN, 


laz 


PCNTRl 


1347 


5325 




JNP 


STKAUT 


I3:e 


1520 




TAD I 


PC"EE 


1551 


1U6 




T«0 


Mil 


13S8 


7650 




SN« Ct> 




1353 


4573 




JM9 I 


PRNOAT 


1354 


5360 




JMP 


• *4 


135! 


4573 


ERROCX, 


JH> I 


PRMPAT 


1356 


2200 




ISZ 


ERKO 


1357 


2200 




ISZ 


ERRO 


1360 


7301 




CL» CLL 


lAC 


1361 


4454 




CLRiLL 




1362 


5600 




JMP I 


ERRO 


1363 


7104 


NOTEX, 


CLL R»L 




1364 


3371 




OCA 


ESAVE 


1365 


2374 




ISZ 


PCNTR2 


1366 


2374 




ISZ 


PCNTR2 


1367 


2010 




ISZ 


AUTO10 


137B 


5346 


/ 

E)«VE, 


JMP 


ASAIN 


1371 


0000 







13T2 


0117 


tutu, 


PCREG-l 




1373 


0000 


PCNTRl, 







1374 


0000 


PCNTR2, 







1375 


0000 


PCNTR3, 







1376 


1377 


HEDTAO, 


BUPPNT"! 


I 


1377 


7773 


K7773, 
PAEE 


7773 






1400 










/ 

/POINTtR* FOR TEXT INF0RM4TIONI 


1402 


3247 


BUPPNT, 


ERTXl 




1401 


3255 




ERTX2 




1402 


3264 




ERTX3 




1403 


3276 




ERTX4 





23.PEb.77 



/PRINT XXI 

/MUDIPItO TEXT POINTER 

/PRINT fOUK OCTAL 

/CHECK FOR NEXT XXI 
/ttT ERROR POINTERl 

/HflZJ OATA EKRORT 
/YES. PRINT OATA 

/PRINT ONLY OATAl 

/UPDATE FOR RETURN 
/ENABLE CLEAR CONTROL 
/CLEAR CONTROL 
/EXIT 
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0000 




1022 




0017 




7650 




5604 




7340 




3143 




5604 



/ROUTINE TO CHECK FOR CLASSIC AND LIMIT 
/TRANSFERS TO FIELD IF AVAILABLE. 

CLAFLD, 



TAD 22 

AND K0400 
SNA CLA 

JMP I CLAFLD 

CLA CLL CMA 

OCA MAXFLD 

JMP I CLAFLD 

/ 

/ROUTINE TO DO CRLF 



/ON CLASSIC! 
/NO, 



/LIMIT TO FIELD 0, 



/RKSt/RKSL DATA RELIABILITY PRUBRAMI HU.0l«DHRKC-H 
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1414 
1415 
1416 
1417 
1420 
1421 
1422 
1423 

1424 
1425 



0000 
7300 
1224 
4445 
1225 
4445 
4445 
5614 

0215 
0212 



/ 

UPUNE, 



I 

K0215, 
K0212, 





CLA CLL 

TAD 

TYPE 

TAD 

TYPE 

TYPE 

JMP I 

0215 
0212 



K0215 



1426 
1427 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 



0000 
7006 
7006 
3214 
1106 
3250 
1214 
0064 
1067 
4445 
1214 
7006 
7004 
3214 
2250 
5234 
4431 
5626 



/ROUTINE TO PRINT FOUR OCTAL 
FROCT, 



RTL 




RTL 




OCA 


UPONE 


TAD 


M4 


OCA 


PRN 


TAD 


UPONE 


AND 


K0007 


TAD 


K0260 


TYPE 




TAD 


UPONE 


RTL 




RAL 




OCA 


UPONE 


ISZ 


PRN 


JMP 


.•11 


SPACE 




JMP I 


FRUCT 



1450 


0000 


1451 


7650 


1452 


4457 


1453 


1650 


1454 


2250 


1455 


3226 


1456 


7500 


1457 


1626 


1460 


0077 


1461 


7450 


1462 


5304 


1463 


7500 


1464 


7020 


1465 


7001 


1466 


7312 


1467 


7012 



/SUBROUTINE To PRINT TEXT 

/ 

PRN, 



MRPRN, 



SNA CLA 




CRLF 




TAD I 


PRN 


ISZ 


PRN 


OCA 


FHOCT 


CLA CLL 




TAO I 


FRUCT 


AND 


K770O 


SNA 




JMP 


EXIT 


SMA 




CML 




lAC 




RTR 




RTR 





/TYPE CRLF 
/YESIIU 
/BET POINTER 



/KKat/NKSU DAT* NtLUBILITT PRUGRtni nu^ue-DHRKC-H 



P4LIH Vl«2« 2J-FEB-77 
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i«7e 


7012 




RTR 




l«Tl 


4445 




TYPE 




l4Ti 


1626 




r*o I 


PHUCT 


1473 


0102 




«ND 


K0ia77 


IDTt 


7450 




SN« 




147! 


5304 




JKP 


EXIT 


1476 


1313 




T»0 


K3740 


1477 


7500 




SMt 




1520 


1074 




T»D 


K4100 


1501 


4431 




SPACE 




1502 


2226 




ISZ 


CROCT 


1503 


5256 




JMP 


MRPRN 


1504 


7300 


EXIT, 


CLA CLL 


1505 


5650 




JMP I 


PRN 






/ 

/ROUTINE TO »P»Ct OUT I 


1506 


0000 


SPtCi 







1507 


1312 




TAD 


K0240 


1510 


4445 




TYPE 




1511 


5706 


/ 

K0240, 


JMP I 


SPAC 


1512 


0240 


240 




151} 


3740 


K3740, 

/THIS 


3740 








NOUTINE 


"ILL BE A SKIP IN8TRUC 






/OTHERmSE IT 


"ILL EXECUTE TME NEXT 






/SKIP 
/ 

Ct«9IK 


IME INST 


"UCTION APTER THAT ONE 


1514 


0000 


• 




1515 


3345 




OCA 


SAVEAC 


151b 


1714 




TAO I 


CLASIK 


1517 


3344 




DCA 


ROUTMP 


1520 


2314 




ISZ 


CLASIK 


1521 


1022 




TAD 


UP2 


1522 


0017 




AND 


K0«e0 


1523 


7640 




SZA CL 


A 


1524 


5327 




JMP 


• *i 


1525 


1345 




TAD 


SAVEAC 


1526 


5714 




JMP I 


CLASIK 


1527 


2314 




ISZ 


CLASIK 


1530 


6211 




COP 


10 


1531 


1020 




TAD 


SHK 


1532 


3777 




DCA I 


CSDR] 


1533 


1021 




TAD 


UPl 


1534 


3776 




DCA I 


(DPI) 


1535 


1022 




TAD 


0P2 


1536 


3775 




DCA I 


10P2) 


1537 


1344 




TAD 


ROUTMP 


1540 


3774 




DCA I 


IROUINSJ 


1541 


1345 




TAD 


SAVEAC 


1542 


6212 




cir 


10 


1543 


5774 


/ 

ROUT"P 


JMP I 


(ROUINS) 


1544 


0000 


• 





/SPACE OUT 1 
/MORt TO PRINT 



TION PUR SYSTEMS KITHOUT CLASSIC 
INSTRUCTION IN PIELD AND THEN 



/SAVt CURRENT AC, 

/BET INSTRUCTION TO EXtCUTE, 

/SAVE IT, 



/ARE WE ON CLASSIC? 
/YES. 

/NO, THEN 
/HIT, 



/SAVE SWITCH REGISTER, 
/SAVt CONTROL 1, 



/SAVE ROUTINE IN PIELO 1, 
/GET BACK AC. 

/GO AND EXECUTE INSTRUCTION, 



/RKSE/KKBL DATA RELIABILITY PRUGRAMI MU.0S-DHRKC>H 



1545 


0000 


SAVEACi 


I 










/ROUTINE TO 


GET 


TME SWITCHES, 


1546 


0000 


MYLAS, 









1547 


4407 




CLASIC 




1550 


4425 




CBCKSW 




1551 


7604 




7604 




1552 


5746 




JMP 


I 


MYLAS 






/ROUTINE TO 


RESET REGISTERS PI 


1553 


0000 


SETREG, 


r 






1554 


1073 




TAD 




KII000 


155! 


3121 




DCA 




STKES 


1556 


7340 




CLA 


CLL 


CMA 


1557 


nil 




TAD 




TRASHl 


1560 


0066 




AND 




K0V17 


1561 


1112 




TAD 




TRASH2 


1562 


3125 




DCA 




DAREG 


1563 


1170 




TAD 




PIRTIM 


1564 


7640 




SZA 


CLA 




1565 


5755 




JMP 


I 


SETREG 


1566 


1174 




TAD 




SAVCM 


1567 


3123 




OCA 




CMNEG 


1570 


5753 


/ 


JMP 


I 


SETREG 


1574 


1302 








1575 


0022 










1576 


0021 










1577 


0020 
1600 


PAGE 












/ 

/ROUTINE TO 


CHECK OATA READ 


1600 


0000 


DTCHK, 









1601 


1156 




TAD 




CRCfLG 


1602 


7640 




SZA 


CLA 




1603 


!ai2 




JMP 




"ROCHK 


1604 


1142 




TAD 




fnosum 


1605 


7041 




CIA 






1606 


1141 




TAD 




CMKSAV 


1607 


7650 




SNA 


CLA 




1610 


5600 




JMP 


I 


OTtHK 


1611 


7340 




CLA 


CLL 


CMA 


1612 


3446 


WRDCMK, 


DCA 


1 


XEMRO 


1613 


1123 




TAD 




CMKEG 


1614 


0015 




ANU 




K01D0 


161! 


7640 




SZA 


CL« 




1616 


1016 




TAD 




K020e 


1617 


1104 




TAO 




K7a00 


1620 


3112 




DCA 




TRASH2 


1621 


1112 




TAO 




THASHi 


1622 


7040 




CMA 







PALIK VI42A 23-FEB-77 



/CHECK POK CLASSIC, 
/GET SWITCHES, 

/EXIT, 

ERROR PRINTER 



/GET STATUS 

/SAVE FOR ERROR PRINTER 

/DECREASE BY 1 

/GET SECTOR POINTER 

/AUD IN ADDRESS 

/SAVE FOR ERROR PRINTER 

/CHECK IF FIRST 8ECT0RT 

/IF 80, DON'T UPDATE COMMANDl 

/NO, DON'TI 

/BET COMMAND REG, 

/SAVE FOR ERROR PRINTER 

/RETURN 



PAGE l<«J 



/GET CRC FLAG 

/"AS IT SETT 

/TES> THEN WOHU HYB WORD CHECKIII 

/GET CHECK SUM FOUND 

/CUMPARE TO GOOD VALUE SAVED 
/"ERE THEY THE SAME 
/YES, OATA O.K. 

/SETUP LHECKSUM ERROR FLAB 



/MAUr BLOCK StTTT 
/YtSl 



/RKSt/HHeL 0»T« HtLUBlLITr l'RUO»»«l MU-B6-DHHKC-H 



1623 


3314 


OCi 


HSRER 


Hit 


7348 


CL* CLL 


CMA 


162; 


3142 


DO 


FNOSUM 


1626 


4442 


RE«R«N 




1627 


1138 


T*0 


FWKEG 


163e 


4435 


StTFLO 




1631 


3246 


UCA 


SOtDF 


1632 


1112 


T»0 


TRASH2 


1633 


3361 


DC< 


KSKAN 


163(1 


1124 


T«0 


INTOA 


1635 


3353 


DC* 


STBEN 


1636 


1361 OTRl, T»D 


RSKAN 


163? 


8314 


«ND 


M»P(ER 


16<le 


3132 


DCt 


NAREG 


1641 


1353 


T»0 


STSEN 


1642 


8866 


AND 


K8ei7 


1643 


3131 


OCA 


ASREG 


1644 


4427 


RANDAT 




164S 


3134 


DCA 


DGKEG 


1646 


7482 SOCDF, HLT/CDf 




164T 


1411 


TAD I 


AUTOtl 


i6Se 


6281 


COP 




1651 


3135 


DCA 


OBREG 


1652 


1811 


TAD 


AUTOll 


1653 


3133 


OCA 


ADKEG 


1654 


1135 


TAD 


OBREG 


1655 


7841 


CIA 




1656 


1134 


TAD 


OGREG 


1657 


7658 


INA CUA 




166e 


5272 


JMP 


NOERR 


1661 


2142 


laz 


FNUSUM 


1662 


5318 


JMP 


NTHRKS 


1663 


1156 


TAD 


CRCFLG 


1664 


7658 


SNA CLA 




1665 


1148 


TAD 


DATTRY 


1666 


2288 


IIZ 


DTCMK 


1667 


4446 


SRROR 




1678 


8884 


8884 




1671 


7768 


7768 




1672 


2361 NOtRN, laz 


KSHAN 


1673 


5388 


JHP 


.♦b 


1674 


2353 


I«Z 


3TGEN 


1675 


7888 


NOP 




1676 


1112 


TAD 


TRABM2 


1677 


3361 


DCA 


RSNAN 


me 


2117 


I8Z 


BUFTAt 


17B1 


5236 


JMP 


OTRl 


1702 


1446 


TAD I 


XtRRO 


17B3 


7658 


3NA CLA 




17B4 


3155 


DCA 


CRCCNT 


17B5 


2446 


ISZ I 


XERRO 


1786 


5688 


JMP I 


DTCHK 


1787 


4576 B«DHLT) JHS I 


BGMLT 


1718 


4446 NT«RKS, ERROR 




1711 


8888 


8BBB 





/SET FIRST TIME FUAG 

/NO, SETUP RANDOM GENERATOR 

/GET FINAL WC 

/GET AUTOll* BUFTAL* FIELU 

/SAVE FIELD COF 



/GENERATE DATA 

/SAVE GOOD DATA POINTER 

/CUF TO BUFFER FIELD 

/GET BAD DATA RORO 

/HOME OF 

/SAVE BAD WORD 

/GET ADDRESS 

/SAVE FOR PRINTER 

/GET DATA READ 

/COMPARE TO GOOD VALUE 

/MERE THEV THE SAME 

/TES> NO ERROR 

/FIRST TIME PKINTT7TT 

/nil, JUST ADDRESS AND DATA 

/GET CRC FLAG 

/IF SET NO NON-RECOVERABLE, 

/NO, GET NON>RECOVCRABLE FLAG, 

/UPDATE FOR ERROR RETURN 

/ERROR DATA 

/POINTER 

/POINTER 



/UPDATE BUFFER TALLY 

/MURE MORDS TO CHECK 

/GET ERROR INOICATORI 

/KAS THERE AN ERRORT 

/NO, CLEAR CRC COUNTER 

/CHECK FOR COMPUTER ERRORT 

/ALL O.K. 

/COMPUTER MUST BE DORN, CHECKSUM 

/OTHER ERRORS IN BUFFER 



/RK8E/RK6L DATA RELIABILITY PRUGRAMI HU.8S-DHRKC>M PAL18 V142A 23-FEB-77 
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1712 


8888 




8888 




1713 


5272 


/ 

MSKER, 


JMP 




NDERR 


1714 


8888 


8 










/ROUTINE TO 


GE" 


lERATE RANDOM NUMBERS 


1715 


8888 


RANDOM, 


. 8 






1716 


7381 




CLA 


CLL 


' lAC 


1717 


1373 




TAD 




RADI 


1728 


1374 




TAD 




RA02 


1721 


1375 




TAD 




RAD3 


1722 


3373 




DCA 




RAOl 


1723 


7884 




RAL 






1724 


1373 




TAD 




RADI 


1725 


1374 




TAD 




RA02 


1726 


1375 




TAD 




RAD3 


1727 


33711 




DCA 




RAD2 


173B 


7884 




RAL 






1731 


1373 




TAO 




RAOl 


1732 


1374 




TAO 




KAD2 


1733 


1375 




TAD 




HAU3 


1734 


3375 




DCA 




RAD3 


1735 


1375 




TAD 




RAD3 


1736 


5715 


/ 

/GENERA 

/ 

GNUAT, 


JMP 


I 


RANDOM 






TOR FDR 


RANDOM DATA 


1737 


8888 


8 






1748 


7381 




CLA 


CLL 


lAC 


1741 


1367 




TAD 




RANI 


1742 


1378 




TAD 




RAN2 


1743 


7186 




CLL 


RTL 




1744 


3367 




DCA 




RANI 


1745 


1378 




TAD 




ran: 


1746 


7812 




RTR 






1747 


1367 




TAD 




RANJ 


1758 


3378 




DCA 




RAN2 


1751 


1378 




TAO 




HAN2 


1752 


5737 


/ 

/ROUTIN 

/ 

5TGEN, 


JMP 


I 


GNOAT 






E TO 


SAVE R«NDOM GENERAIOR 


1753 


88B8 


8 






1754 


1367 




TAO 




RANI 


1755 


3371 




DCA 




SAVl 


1756 


1378 




TAD 




RAN2 


1757 


3372 




DCA 




SAV2 


1768 


5753 




JMP 


I 


STBtN 






/ROUTINE TO 


REOtT RANDOM GENERATOR 


1761 


8888 


/ 

RSRAN, 


8 






1762 


1371 




TAD 




SAVl 


1763 


3367 




OCA 




HANI 



/CHECK REST OF BUFFER 



/EXIT, RANDOM NUMBER IN AC 



/nmt/Kntl OtTt DEkI>6ILITr fRUSRtMl HU.|ta-DHIIKC>H 



flLtO vine* ri]>FeB-77 



rtsEi esre 



IT»« 


1372 




T*D 


9AV2 




1765 


3370 




oct 


RAN2 




1T66 


5761 


/ 
R»N1, 


JNP I 


R9RAN 




ITfcT 


1234 


1234 






ITTe 


5670 


RtN2, 

/ 

StVtt 


5670 






irn 


0000 









IT78 


0000 


8«V2. 









tT7J 


1254 


B»01, 


1234 






1774 


5670 


RtU2i 


5670 






1775 


4321 

2000 


R*ll3i 
/ 
/ 
PtBE 


4321 










/RUUTINE TO tl»JlT FOR KEY 


FROM UPfcRATuR 


zeee 


0000 


N4IT, 









zeat 


60)2 




KCC 






2002 


6031 




KSF 






2083 


5202 




JHf> ,.1 






2024 


6036 




KRB 






2B05 


0234 




AND 


"177 




2006 


1016 




T«0 


K0200 




2007 


3235 




DC« 


CHRYN 




2010 


1022 




T»0 


22 




2011 


0017 




AND 


K0400 




2012 


7650 




SNA CL* 






2013 


5226 




JMP 


HAITI 




2014 


1235 




TAD 


CMKYN 




2015 


6211 




CDF 


10 




2016 


3777- 




DCA 


CICMAR 




2017 


2776' 




lit 


iNnooc 




2020 


1777' 




TAD 


CICHAR 




2021 


6201 




CDF 







2022 


4407 




CLASZC 






2023 


4427 




CaCNTR 






2024 


7000 




NOP 






2025 


7300 




CIA CLL 






2026 


1235 


WAITl, 


TAD 


CMKYN 




2027 


6046 




TL« 






2030 


6041 




T8F 






2031 


5230 




JHP ,■! 






2032 


6042 




TCF 






2033 


5602 


/ 

K177i 


JMP I 


KAIT 




2034 


0177 


0177 










/ 

/ROUTINC TO CHtCK FOR rCS 


OR NU 


2035 


0000 


/ 

CHKVN, 









2036 


3200 




OCA 


HAIT 




2037 


1235 




TAD 


CMHYN 




2040 


3260 




DCA 


CMKPOT 





/SAVfc CHARACTER 
/CHECK FOR CLASSIC 
/MASK CLASSIC BIT 
/CLASSIC'NON ZERO 

/RESTORE CHAR, FOR CLASSIC 

/SAVE CHARACTER, 

/liET BACK AC. 

/CHECK FOR CLASSIC, 
/ROUTINE TO EXECUTE. 

/CLEAR CLASSIC AC RETURN 
/RESTORE CHARACTER 



/SAVE POINTER 
/SET PC STORED 
/SAVE IT 



/RKSt/RKSL DATA RELIABILITY PHUBRAHI HU.|t8>0HPKC>H 



2041 


1200 




TAD 


XAIT 


2042 


2235 




ISZ 


CMKYN 


20«3 


7041 




CIA 




2044 


1257 




TAD 


K0S16 


2045 


7650 




SNA CLA 




2046 


5635 




JMP I 


CHKVN 


2047 


1200 




TAD 


NAIT 


2050 


2235 




ISZ 


CHKYN 


2051 


7041 




CIA 




2052 


1256 




TAD 


K0531 


2053 


7650 




SNA CLA 




2054 


5635 




JMP I 


CHKYN 


2055 


5660 


/ 
/ 
/ 
K0J31i 


JMP I 


CHKPOT 


2056 


0331 


0331 




2057 


0316 


KB316, 


0316 








/ROUTINE TO CHECK DISK 


2060 


0000 


CHKPOT, 







2061 


0064 




AND 


K0e07 


2062 


1154 




TAD 


KUNPOT 


2063 


3200 




DCA 


WAIT 


2064 


1600 




TAD I 


NAIT 


2065 


7640 




SZA CL« 




2066 


2260 




ISZ 


CHKPOT 


2067 


5660 




JMP I 


CHKPOT 






/ROUTINE TO TEST FOR AP 






/REGISrERS IN UN THE SY 


2070 


0000 


APT8, 







2071 


4424 




CHK22 




2072 


5301 




JMP 


.♦7 


2073 


4407 




CLASIC 




2074 


4431 




CBSDIT 




2075 


7000 




NOP 




2076 


1355 




TAD 


K7000 


2077 


3775' 




OCA 


SKPNOP 


2100 


5351 




JMP 


t«APT» 


2101 


1022 




TAD 


OPi 


2102 


0354 




AND 


K7i77 


2103 


3022 




DCA 


UP2 


2104 


1355 




TAD 


K7000 


2105 


3774' 




DCA 


MYLAS»3 


2106 


1022 




TAD 


0P2 


2107 


0064 




ANO 


K0B07 


2110 


3111 




DCA 


TRA8M1 


2111 


1022 




TAD 


0P< 


2112 


0015 




AND 


K0100 


2113 


7650 




SNA CLA 




2114 


5325 




JMP 


MOUSKS 



PAL10 V142* 23-FEB-77 



/"AS IT A NO 
/YES 



/HAS IT A YES 
/YES 

/HAS NEITHER 



PAGE 1-47 



PAGE! 0071 



/BET HUN POINTER 
/RUN THIS DRIVE 
/NO 
/fc«IT 



/TEST FOR APT 
/YES 



/EXIT 

/NUP CONSOLE PACKAGE 



/NOP SHITCM RESISTER 
/NU UPEHATOR INTERVENTION ALLOHED 

/GET • D^ DRIVES 



/SINGLE UHIVE • NON ZENO AC 
/NU, 



/RKgt/KKBL DATA RELIABILITT PHUGRAMI MU-BS-DKHKC-H 



ens 

2116 

2117 

2>2e 

2121 
2122 
2123 

2124 
2129 

2126 
2127 
2190 
2131 
2132 
2133 
2134 
213! 
2136 
2137 

2i«e 

2141 
2142 
2143 
2144 
214! 
2146 
2147 
213B 
21il 
21!2 
2133 



2156 
2U7 

2l6e 

2161 
2162 

2163 
2164 
216! 
2166 
2167 
217e 
2171 



7311 

SttZ 

nil 

1154 
3111 
734e 
3511 
5342 

nil 

7940 
3112 
3111 
lilt 
1154 
3113 
7340 
3513 
2111 
2060 
2112 
5331 
1021 
7012 
0064 
7104 
7006 
7040 
3143 
2270 
2270 
9670 



2154 7377 
215! 7000 



0000 
4424 
7410 
5756 
6002 
7200 

ni! 

0064 
6201 
6272 
5772 

7402 



2172 6520 

2174 1551 

217! 0237 

2176 1076 



MODSKS, 



CLL CL* 

DCA 

TAD 

TAD 

DCA 

CLL CLA 

DCA I 

J«P 

TAO 

CMA 

DCA 

DCA 

TAD 

TAO 

DCA 

CLL CL« 

DCA I 

IIZ 



lAC 

ANUUNT 

TRASHl 

KUNPOT 

TRASHl 

CHA 

TNASHl 

HENSET 

TRASHl 

TRA9H2 

TRASHl 

TRASHl 

HUNPOT 

TRASH3 

CMA 

TRASH3 

TRASHl 

AHOUNT 

TRASH2 

HQUSKS*« 

21 



PALIB «1«2A 23-rE»-77 



/UNLT ONE DRIve 
/SCT DRIVE NUHbER 



PAGE) 0072 



/UU THIS DRIVE 



/SAVt THE NUMBER OF DRIVES 



/ESTABLISH DRIVE 



/UU THIS DRIVE 



ISZ 
ISZ 

JMP 
MEMSET, TAD 

RTR 

AND K000T 

CLL RAL 

RTL 

CMA 

DCA MAIFLD 
eXAPTSi ISZ APtS 

ISZ APTS 

JMP I APTS 
/ 

K7377, 7377 
K7e00, 7000 
/ 

/THIS MOUTNE HILL NOTIFY APT OF AN EKRUR. 
/ONLT THE ORIVt IN ERROR IS EST4BLISMEU, 



/DONtI 
/"ORE TO DO 



/NEGATIVE AMOUNT OF FIELDS, 



ACRRDR, 



/ 

K6S20, 





CHK22 

SKP 

JMP I 

IGF 
CLA 
TAO 
AND 
CDF 
CIF 70 
JMP I 
MLT 

6520 



08 



PDLOSK 
KeB07 



/CHECK FOR APT>B, 
/E«IT 



/DRIVE NUMBER 



/NOTIFY APT 

/SOMETHING WENT WRONG IF IT GETS MERE 



/RKBE/RKSL DATA RELIABILITY PRUGRAMI MU.es>DHRKC-» 


2177 


107! 
2200 


PAGE 










/ROUTINE TO WHITE OR READ 


2200 


0000 


DSKGO, 







2201 


7340 




CLA CLL CMA 


2202 


3170 




DCA 


FIRTIM 


2203 


31!6 




DCA 


CRCFLG 


2204 


1126 




TAD 


CAREG 


220! 


44!2 




LDCUR 




2206 


1127 




TAO 


WCREG 


2207 


3130 




DCA 


FWMEG 


2210 


1124 




TAD 


INTDA 


2211 


3111 




DCA 


TRASHl 


2212 


1124 




TAO 


INTOA 


2213 


0100 




AND 


K7T6e 


2214 


3112 




OCA 


TRASH2 


221! 


1136 




TAD 


INTCM 


2216 


1600 




TAD I 


DSKGD 


2217 


44!1 




LOCMD 




2220 


1123 




TAO 


CMNEG 


2221 


107! 




TAO 


Kise0 


2222 


3174 




DCA 


SAVCM 


2223 


nil 




TAD 


TRASHl 


2224 


0066 




ANO 


K0ai7 


222! 


1112 




TAO 


TRASH2 


2226 


44!3 




LDADD 




2227 


6001 




ION 








/ 

/ROUTINE TO CLtAK OR CHECK 


2230 


3777- 


GOBAK, 


DCA 


TIMER2 


2231 


3142 




DCA 


FNUSUM 


2232 


443! 




SETFLD 




2233 


32!4 




OCA 


CMNCDF 


2234 


1170 




TAO 


FIHTIM 


223! 


76!0 




SNA CLA 




2236 


5241 




JMP 


STKWRK 


2237 


4776* 




JMS 


TIME 


2240 


5234 




JMP 


■ "4 


2241 


1117 


STNWRK, 


TAO 


BUFTAL 


2242 


7041 




CIA 




2243 


1130 




TAD 


FWREG 


2244 


7450 




SNA 




2i4! 


9274 




JMP 


WRKDON 


2246 


7041 




CIA 




2247 


3175 




DCA 


CLRBAK 


22!0 


117! 




TAD 


CLNBAK 


22il 


7041 




CIA 




2252 


1117 




TAD 


BUPTAL 


225] 


3117 




OCA 


BU^T^L 


22!4 


7402 


CMNCDF, 


MLT 




225! 


1123 




TAO 


CMKtG 


22!6 


7700 




SMA CL* 





PALlB V142A 23>FeB-77 



SECTORS SELECTED 



910! 



PAGE 1-49 



PAGEI 0073 



/SETUP FIRST TIME POINTER 
/CLEAR CRC FLAEI 
/GET INITIAL CURRENT ADDRESS 
/LOAU CURRENT ADDRESS 

/SETUP FINAL WC 

/GET INITIAL STARTING SECTOR 

/SAVE 

/GET DISK ADDRESS 

/MASK 

/SAVE 

/GET INITIAL COMMAND 

/GET READ OR WRITE 

/LUAD COHMANO 

/MAKE READ ALL OR WRITE ALL 

/SAVE FOR SWITCH TO CONSECUTIVE HOOE 

/SECTOR TO DO 

/MASK 

/ADD TO TRACK 

/LUAU AND GO 

/TURN INTERRUPT ON 



SUM BUFFER UN THE FLYl 



/CLEAR LONG TIMER 
/CLEAR SUM CHECK 
/SET FIELD TO BUFFER 
/SAVE CDF 

/TIME TO GO 

/YtStlll 

/WAIT FOR FIRST INTERRUPT 

/NOT HERE YET 



/COMHAHt TD SOFTWARE FINAL 
/WAIT FOB 0ISK77T? 
/YtSllll 

/SAVE DIFFERENCE 



/UPDATE BUFFER TALLY 
/CUF TO BUFFEW FIELD 



/KtAU ax WRITE 



/RKit/RKai OAT* HELItBlLITY PRUIiRilMI nU.«e«DHflKC-H 



»»5T 


32»4 




JMP 


W49R0 


izte 


3411 


SOCl", 


DC« Z 


4UT0I1 


2i»l 


2175 




:iz 


CURBtK 


It*t 


52te 




JMP 


SOCLR 


ii*i 


5274 




JMP 


MRKOaN 


Hit 


1142 


H4SRD, 


7*0 


FNDSUM 


iiti 


71)) 


GOCHK, 


CLb 




iibt 


1411 




T«D I 


4UT011 


ii»T 


743) 




ill 




izre 


71)1 




ItC 




2271 


2175 




laz 


CLHBtK 


2272 


S2k5 




JMP 


BOCHK 


227S 


3142 




DC4 


PNnSUM 


2274 


62)1 


WRKDON, 


COP 


e 


227S 


1117 




T»0 


BUPT4L 


2276 


765) 




(Nt CI.4 




2277 


53)2 




JMP 


DSKEX 


23ee 


4776' 




JMS 


TIME 


23)1 


5241 




JMP 


■7RHRK 


23)2 


22)) 


DSKEX, 


ISZ 


OSKSO 


23)3 


56)) 




JMP I 


DSKCO 






/ 

/INTtRRUPT SERVICt 


2304 


6741 


RETURN, 


D«KP 




23)5 


5399 




JMP 


N0P8KP 


23)» 


2111 




ISZ 


T»»SMl 


23)7 


7))) 




NOP 




231) 


1114 




T«0 


IJPU4TE 


2311 


113) 




T«0 


FKREG 


2312 


313) 




DC4 


PWREG 


2313 


6745 


ST«TUS, 


BR»T 




2314 


1)73 




T»D 


K4B0B 


2311 


744) 




sz« 




231» 


333T 




JMP 


ST4TER 


2317 


113) 




T4D 


PKRE8 


232) 


769) 




•N* CL* 




2321 


5369 




JHP 


TRBONE 


2322 


317) 




DC4 


PIKTIM 


2323 


1174 




T«D StVCM 


2324 


6746 


ROLHRL, 


DLDC 




232S 


nil 




740 


TR«SHt 


232» 


))66 




4N0 


K0B17 


2327 


1112 




T«0 


TR4SM2 


233) 


6743 


lOOGOi 


0L4S 




2331 


1167 


REIRN, 


T«D 


6VUNK 


2332 


711) 




CkL R«N 




2333 


1166 




T»0 


stvtc 


2334 


6244 




RMF 




2339 


6))1 




ION 




233» 


54)0 




JMP 1 


a 


2337 


4775* 


STtTER, 


JM) 


SETREG 


234) 


1123 




T4D 


CMREG 


2341 


7710 




IP< Cl« 




2342 


7)01 




I4C 





P<LtV yi«2A 23-FEB-77 91) 

/WtS « NE4DI1 

/N4S « MRITEi CLEAR BUFFEK 

/UPDATE TALLY 

/MORE TO CLEAR 

/DONt NITH SOME 



/UPOATE CLEAR POINTER 
/MURE TO CHECKSUM 
/SAVE IT 



/LAST MORD OONETTTT 

/E«IT 

/TIME AND NAIT 

/WAIT FOR INT, OR DONEIIll 

/EXIT 



/DISK SKIP lOT 

/NOT THE DISK 

/UPDATE SECTOR NUMBER 

/IT WON'T HORK WITHOUT ITI 

/UPDATE WORD COUNT 

/READ STATUS 

/ONLT DONE FLAG? 
/STATUS ERROR 

/LAST TRANSFER? 

/TRANSFER IS DONE 

/CLEAN FIRST TIME POINTER! 

/GET READ OR WRITE CQHNAND 

/LOAD COMMAND REGISTER 

/GET SECTOR TO DO 

/MASK OFF 

/ADD IN TRACK 

/LOAD DISK ANFD GO 

/GET LINK 

/GET AC 

/RESTORE FIELDS 

/TURN INTERRUPT ON 

/EXIT 

/SETUP REGISTERS! 

/WRITE OR READ 
/WRITE 



PABEI 0074 



/RKSfc/RKSL DATA RELIABILITT PRUGRAMI MU.BS-DHRKC-H 



2343 


7)01 




lAC 




2344 


3347 




OCA 


• •3 


2345 


1137 




TAD 


STATRT 


2346 


4446 




ERROR 




2347 


0000 




B0)0 




2350 


7770 




7770 




2351 


220) 




ISZ 


DSKGO 


2392 


5302 




JMP 


DSKEX 


2393 


3374 


NODSKP, 


i OCA 


TIMER3 


2394 


2374 




ISZ 


TIMERS 


2359 


5354 




JMP 


.•I 


2356 


44)7 




CLASIC 




2357 


444) 




CSCKPA 




236) 


7)0) 




NOP 




2361 


6)31 




KSF 




2362 


4576 


INTER2. 


JMS I 


SGMLT 


2363 


6)32 




KCC 




2364 


5331 




JMP 


RETRN 


2365 


4775' 


TRDONE, 


JMS 


SETREG 


2366 


317) 




OCA 


FIKTIM 


2367 


1167 




TAD 


SVLNK 


237) 


7110 




CLL RAM 




2371 


1)66 




TAO 


SAVAC 


2372 


6244 




RMF 




2373 


5400 


/ 

TIMER3, 
/ 


JMP I 


» 


2374 


000) 







2375 


1553 






2376 


3123 








2377 


3141 
24)0 


PAGE 










/ 

/ROUTINt TO GET 


ONE IN OCTAL 


240) 


0000 


OCTl, 







2401 


4444 




RECEIV 




24)2 


3354 




OCA 


LOAD 


24)3 


1600 




TAD I 


OCTl 


24)4 


0064 




AND 


K0B07 


24)5 


1)67 




TAO 


K026) 


24)6 


7141 




CLL CIA 




2407 


1354 




TAD 


LOAD 


241) 


7620 




8NL CLA 




2411 


5226 




JMP 


INERR 


2412 


16)0 




TAD I 


OCTl 


2413 


0014 




AND 


KBBTB 


2414 


7110 




CLL RAM 




2415 


7012 




RTR 




2416 


1067 




TAO 


Klt26B 


2417 


7)40 




CM» 




2420 


1394 




TAO 


LOAD 


2421 


7630 




SZL CL* 




2422 


5226 




JHP 


INERR 


2423 


1354 




TAO 


LOAD 



PALlB yi42A 23-FEB-77 «l«9 



/MODIFY HEADER POINTER 
/BET TRY POINTER 
/PRINT MESSAGE 
/MODIFIED HEADER POINTER 
/MESSAGE POINTER 
/UPDATE FOR ERROR 
/EXIT 



/"AIT FOR DISK TO STOP. 
/CHECK FOR CLASSIC, 
/ROUTINE TO EXECUTE, 

/KEYBOARD FLAGTT 
/ILLEGAL INTERUPT 

/EXIT BACK, 

/SETUP REGISTERS! 

/CLEAR FIRST TIME POINTER! 

/REPLACE LINK 

/REPLACE AC 

/RESTORE MEMORY FIELDS* FLAGS 

/RETURN TO BACK GROUND 



PAGE 1«91 



PAGEI 0)79 



/KECEIVE 
/SAVE IT 
/GET LIMITS 
/MASK 



/BtT INPUT 
/IN LIMITST77T 

/NO, ERROR EXIT 
/GET LIMITS 
/MASK 



/BtT INPUT 
/IN LIMITS???? 
/NO, ERROR 
/BtT INPUT 



/RKgt/RKeL 0»T» "ELUBILITT PHUUSJ"! MU.BS-DHHKC-H 



PAGEI eii76 



2424 


0064 


2425 


2200 


2426 


2200 


2427 


3600 


2430 


0000 


2431 


1106 


2432 


3341 


2433 


3350 


2434 


4432 


2435 


0070 


2436 


5630 


243T 


1330 


2442 


2341 


2441 


7410 


2442 


5246 


2443 


7004 


2444 


7006 


244S 


5233 


2446 


2230 


2447 


5630 


2492 


0000 


24St 


U15 


2452 


0064 


2453 


3341 


2454 


1341 


2455 


1152 


2456 


3354 


2457 


7301 


2460 


1147 


2461 


1754 


2462 


3754 


2463 


7620 


2464 


5650 


2465 


4440 


2466 


3777' 


2467 


4440 


2470 


3776- 


2471 


7100 


2472 


1354 


2473 


1013 


2474 


3354 


2475 


2754 


2476 


1754 


2477 


1144 


2se« 


7620 


25BI 


5650 


2502 


3754 


2303 


1341 


2504 


7040 



INtRK, 



AND 

I9Z 

JMP I 



K0007 
OCTl 
DCTl 
CJCTl 



/RUUTINE TO HEUeivt FOUR OCT«L 

/ 

0CT4, 



TAP 

UCA 

DCA 

ONEIN 

0070 

JMP I 

TAD 

ISZ 

SKP 

JMP 

RAU 

RTL 

J«P 

lU 

JMP I 



«4 

ROST 

LDCA 



0CT4 
LDCA 
RD3T 



0CT4«3 

0CT4 

JCT4 



/RUUTINE TO UPDATE AND CHECK FUR 

/ 

CKTIH, 



TAD 
AND 
DCA 
TAO 
TAD 
OCA 



PDLDSK 

K0007 

ROST 

RDIT 

TIMPOT 

LOAD 



CLA CLL lAC 
TAO CONSEC 
TAD I 



DCA I 

SNL CUA 

JMP I 

RANSEN 

DCA 

RANSEN 

DCA 

CLl 

TAD 

TAD 

DCA 

laz I 

TAO I 
TAO 

SNL CLA 
JMP I 
OCA I 
TAD 
CHA 



LDAD 
LOAD 



CKTIM 



RAN2 

LDAD 

Ke004 

LDAD 

LOAD 

LDAD 

MA«T1M 

CKTIM 

LDAD 

ROST 



/bUOU t>IT 



/SETUP COUNTER 
/START KITH 
/RECEIVE ONE OCTAL 
/LIMITS 
/ERROR EXIT 
/SET LAST 
/UPDATE COUNTER 

/EXIT 



/EXIT OCTAL IN AC 
PASS COMPLETE 



/SETUP CURRENT DRIVE » 
/POINTER 

/GET TIME POINTER 

/•AVE IT 

/UNE FOR 

/SET AMOUNT DONE 

/ADO IN AMOUNT COMPLETED SO FAR 

/SAVE IT 

/LINK UPTtt? 

/NO, EXIT 

/SET RANDOM NUMBER 

/RE-PRIME GENERATOR 

/SET RANDOM NUMBER 

/RE-PRIME GENERATOR 



/SECOND TIME POINTER 

/UPDATE IT 

/GET COUNT 

/AUO IN FUDGE FACTOR 

/PASS COMPLETE???? 

/NO, EXIT 

/ZERO 3EC0UND COUNTER 



/RKSE/RK6L DATA RELIABILITY PROGRAMI MU.0g.DHRKC-n 



2505 
2506 

2507 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2540 



2545 
2546 



3341 

1362 

1062 

2341 

5307 

3341 

7340 

2741 

7610 

3741 

4457 

4455 

3477 

1115 

0064 

1067 

4445 

7340 

4455 

3502 

4406 

0015 

7650 

5337 

4430 

5775' 

4774* 

5650 



2541 0000 

2542 6745 

2543 7410 

2544 4576 



3121 
1121 



2547 5741 



2550 0000 

2551 6744 

2552 4425 

2553 5750 



DCA 


RDST 


TAD 


CMPPOT 


TAO 


K0003 


ISZ 


RDST 


JMP 


• -2 


DCA 


RDST 


CLA CLL 


CMA 


ISZ I 


ROST 


SKP CL» 




OCA I 


RDST 


CRLF 




PRNTER 




MES17 




TAD 


PULDSK 


AND 


KB007 


TAD 


K0260 


TYPE 




CLA CLL 


CMA 


PRNTER 




MESIB 




LAS 




AND 


K010e 


SNA CLA 




JMP 


.♦3 


DISCON 




JMP 


RUN 


JMS 


TPSTA 


JMP I 


CKTIM 



PALIB V142A 23.FEB.77 4105 

/SETUP COUNTER 
/ADD IN POINTER 

/COMPUTE BUFFER 

/SAVE ADDRESS POINTER 

/UPDATE PASS COMPLETE POINTER 

/NOLO AT 7777 

/PRINT "DISK" 

/GET DISK POLE NUMBER 
/MASK 

/TYPE DISK NO, 

/PRINT "PASS COMPLETE" 



/MASK 

/PASS COMPLETE DISCONNECT???? 

/NO NAYl II 1 

/DUMP DRIVE 

/MORE TO TESTUll 

/STATUS-COMPLETE TYPEOUT 

/EXIT 



PAGEI 0077 



/SUBROUTINE TO READ STATUS REGISTER 

/ 

RDST, 

I0T5, DR8T 

SKP 
ERMLT5, JMS I BGMLT 

DCA STREG 

TAO STRES 

JMP I RDST 



/HEAD STATUS lOT 



/SKIP TRAP 
/SAVE RESULTS 



/SUBROUTINE TO LOAD CURRENT ADDRESS 

/ 

LDCA, 

I0r4, ULCA 

KTICK 

JMP 1 LDCA 



/EXIT 

KEUISTtH 



/LUAO CURRENT ADURESS lOT 

/NOTIFY APT 

/EXIT 



2554 


0000 


2555 


3125 


2556 


1125 


2557 


6743 


2560 


5754 


2561 


4576 



/SUBROUTINE TO LOAD TRACK ADDRESS REGISTER 

/ 

LOAD, 

tJCA DAH^G 

TAO DAHEG 
I0T3, DLAG /LOAD DISK ADDRESS RtGISTEK 

JMP I LUAD /EXIT 

ERHLT3, JMS I asMLT /EKROR SKIP TRAP 



/RKBE/RKBL 0»T« RELIIBILITT PHUORAMI MU.lag-DHRKC-H 



P«Llll VUS* «3.rEb-77 



P«GEI B07S 



25tS J5«l 

2974 3eee 
297! gbee 

2576 1778 

2577 1767 

2600 



CMPPOI, D*IC«P--> 



2602 

2601 
2602 

260] 

2604 
260S 
2606 
2607 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 



2620 

2621 
2622 
2623 

2624 
2625 

2626 
2627 
2630 
2631 
2632 
2633 
2634 
2635 
2636 



2637 

2640 
2641 
2642 
2643 
2644 
2645 
2646 



7402 
5600 
6201 
1412 
7402 
2116 
5600 
1220 
1105 
3116 
7340 
1151 
3012 
1220 
5600 



3237 

4424 
5235 

1237 
4407 
4435 
7410 
5620 
6046 
6041 
5232 
6042 
7200 
5620 



0000 
4424 
563T 

4455 
34T7 
1115 
0064 
3200 



P*OE 

/ 

/ROUTINE TO GEI 

/ 

RNKRD, 

SWD»T, MLT 

JMP I 

cor 

TAO I 

MLT 

ISZ 

JMP I 
DCA 
TAD 
DCA 

CLA CUL 
TAO 
DCA 
TAD 
JMP I 



KANDOM OR OPERATOR DATA 



RECDF, 



AUT012 

OPKTAL 

RNNRD 

PRINT 

M12 

OPRTAL 

CMA 

OATPOT 

AUT012 

PRINT 

RNWRD 



CMK22 




JMP I 


DUMP 


PRNTER 




ME81T 




TAO 


POLDSK 


AND 


K000T 


OCA 


RNRRD 



/MODIFIED SWITCH 
/txIT 
/MUMt COP 
/SET DATA 
/BUFFER CDF 
/UPDATE TALLT 
/EXIT 
/SAVE MORD 

/REPLACE TALLY 



/HEPLACE AUTO INDEX 
/IiET 3AVED WORD 
/EXIT 



/RDUTINE TO TYPE 

/ 

PRINT, 

DCA DUMP 

CHK22 

JMP PREXIT 

TAD DUMP 

CLASIC 

C8TYPE 

9KP 

JMP I PRINT 

TLS 

T8F 

JMP ..I 

TCF 
PREXIT, CLA 

JMP I PRINT 
/ 

/ROUTINE TO DUMP AND REPORT DISK STATUS 
/ 
DunPi 



/STORE AC VALUE 

/SEE IF ON APT 

/NO, EXIT 

/RETURN AC. 

/CHECK FOR CLASSIC, 

/ROUTINE TD EXECUTE, 

/EXIT, 



/CHECK FDR APT 
/PRINT "DISK » 



/SETUP CURRENT DRIVE » 
/SAVE 



/RK8E/RKSL DATA RELIABILITY PRUGRAMI HU.0S.DHRKC-H PALIB 



2647 
2650 

2651 
2652 
2653 

2654 
2655 
2656 
2657 

2660 
2661 
2662 

2663 
2664 
2665 
2666 
2667 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2700 
2701 
2702 



2703 
2704 
2705 
2706 
2707 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2720 
S7S1 
2722 
2723 
2724 
2725 
2726 
2727 



1200 

1067 

4445 

7340 

4455 

3445 

4777' 

1200 

1154 

3200 

3600 

3200 

1106 

3220 

1200 

4436 

7610 

5637 

2200 

2220 

5265 

4457 

4455 

3477 

7340 

4455 

3455 

4576 



7041 
1127 
3117 
7340 
1126 
3011 
1157 
7650 
5322 

lies 

3116 
7340 
1151 
3212 
1136 
0014 
1103 
3205 
1205 
5703 



RNNRD 
K0260 



TAD 

TAD 

TYPE 

CLA CLL CMA 

PRNTER 

ME815 



JHS 

TAD 

TAO 

DCA 

OCA 

DCA 

TAD 

DCA 

TAO 

SELCHK 

8KP CLA 

JMP I 

ISZ 

182 

JMP 

CRLF 

PRNTER 

MES17 

CLA CLL CMA 

PRNTER 

HES16 
NDOSKS, JM8 I aSHLT 
/ 

/ROUTINE TO 8EruP FIELD TO SUFFER* 
/ 
STPLD, 



TPSTA 

RNWRD 

RUNPOT 

RNWRD 

RNWRD 

RNWRD 

M4 

PRINT 

RNNRD 



DUMP 
RNWRD 
PRINT 
.-6 



CIA 






TAD 




WCHEG 


DCA 




BUFTAL 


CLA 


CLt 


CMA 


TAO 




CANEO 


DCA 




AUTDll 


TAD 




DATFLG 


SNA 


CLA 




JMP 




w*b 


TAD 




M12 


DCA 




OPRTAL 


CLA 


CLL 


CMA 


TAD 




OATPOT 


OCA 




AUT012 


TAD 




INTCM 


AND 




K0070 


TAO 




KCOF 


OCA 




RECDF 


TAD 




RECDF 


JMP 


I 


5TFLD 



V142A 23-FEB-77 9105 

/GET DISK NUMBER 
/TYPE DISK NUMBER 
/PRINT "OISCONNECTEDi" 
/TYPE STATUS REPORT 



/SAVE POINTER ADDRESS 
/CLEAR RUN POINTER 



/CHECK FOR MORE POINTER 

/CHECK SELECT POINTERS 
/DISK NOT MERE 
/MURE AVAILABLE 

/UPDATE POINTERS 

/PRINT "DISK" 

/PRINT "SYSTEM DOWN" 
/ERROR, NO DISK AVAILABLE 
AUTUU* BUFFER TALLY 



/GET INITIAL CA 

/SAVE 

/SET DATA FLAG 

/WAS IT SET777V 

/NU, USE REGULAR 

/SETUP SPECIAL TALLY 



/SETUP SPECIAL AUTO INDEX 

/GET LAST COMMAND 

/MASK FIELD BITS 

/HAKE BUFFER CDF 

/SETUP SPECIAL COF 

/GET HACK CDF 

/EXIT, PItLO IN «C 
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/ROUTINE TO CHANGE DEVICE lOT COOES 



/R««t/mi6t DAT« REUI«8ILITr PRUSR«M| nu. UfOHRKC-H 



2732 


4407 


CHANS, 


CL4SIC 




!73l 


4431 




CSSWIT 




2732 


7000 




NOP 




2733 


4406 




LAS 




273« 


0071 




AND 


A077B 


2735 


3776' 




OCA 


LDCM 


2736 


1360 




TAD 


CHNPOT 


2737 


3111 




OCA 


TRASMl 


27«B 


1357 




TAD 


CCNTRl 


27«1 


1112 




DCA 


TRA9H2 


2742 


1511 


CH4NSR, 


TAD I 


TRASHl 


2743 


3113 




DCA 


TRASH3 


2744 


1513 




TAO I 


TRASH3 


2745 


0072 




AND 


A7007 


2746 


1776' 




TAD 


LDCM 


2747 


3513 




DCA I 


TRASH3 


275B 


2111 




III 


TRASHl 


2751 


2112 




I«Z 


TRASH2 


2752 


5342 




JHP 


CHANGR 


2753 


4407 




CLASIC 




2754 


4436 




CIERR 




2755 


7402 


CHNHLTi 


MUT 




2756 


5775' 




JMR 


BSN 


2757 


7765 


/ 

CCNTRli 

/ 

CMNfOT, 


7765 




2760 


2761 


CMNPOT* 


1 


2761 


2304 




RETURN 




2762 


2313 




STATUS 




2763 


2324 




RDU"Rt 




2764 


2330 




lODGO 




2765 


0554 




IOT0 




2766 


0752 




lOTI 




2767 


0561 




IDT2 




2778 


2557 




I0T3 




2771 


2551 




I0T4 




2772 


2542 




I0T5 




2773 


0545 


/ 


I0T6 




2775 


0200 






2776 


0542 








2777 


3100 
3000 


P«8E 










/RUUTINE TO TY^E STATUS RERORT 


3aee 


0000 


TR»T», 







3001 


4424 




CHK22 




3082 


5600 




JMP I 


TPSTA 


3003 


4457 




CRLf 




3004 


4455 




PRNTER 




3005 


3172 




WEST 




3006 


1107 




TAD 


HIB 


3007 


3245 




DCA 


TSAVEl 



PALIB V142A 23-Ftl)»77 9I0S 

/CHECK POR CLASSIC, 
/ROUTINE TO EXECUTE. 

/GET SWITCHES 

/MASK 3-S 

/SAVE DESIRED CODE 

/POINTER 

/AUDRESS POINTER 

/AMOUNT TO 00 

/SETUP COUNTER 

/GET ADDRESS POINTER 

/SAVE ADDRESS 

/GET OLD CODE 

/HASK OFF OLD CODE 

/ADD IN DESIRED CODE 

/RESTORE 

/UPDATE POINTER 

/UPDATE CHANGE COUNTER 

/nORE TO CHANGE 

/CHECK FOR CLASSIC, 

/ROUTINE TO EXECUTE, 

/lOTS CHANGED, HIT CONTINUE OR 

/IF ON CONSOLE PACKAGE 

/CONTROL E TO START PROGRAH, 



PAGEI 00S0 



/PRINT "OSK HARD SOFT COHP" 
/HAXIMUH TO DO 



/RK»t/RK«L DATA RELIABILITr PRDGRAHI MU.BS-DHRKC-H 



3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3040 
3041 
3042 
3043 
3044 

3045 
3046 
3047 
3050 
3051 



3052 
3053 

3054 
3055 

3056 
3057 
3060 
3061 
3062 
3063 
3064 
306! 
3066 
3067 
3070 
3071 



3246 
3247 

1246 
1062 
3246 
1246 
1153 
3251 
1247 
4436 
5241 
4457 
4431 
1247 
1067 
4445 
4431 
4431 
7346 
3250 
1651 
4456 
2251 
2250 
5234 
2247 
2245 
5212 
5600 



0000 

0000 
0000 



0063 
3200 
1077 
3341 
2340 
5257 
2341 
5257 
120K 
4451 
7326 
4454 
4450 
5267 
4447 



OCA 
DCA 
CHKRES, TAD 
TAO 
DCA 
TAO 
TAO 
OCA 
TAD 

SELCHK 
JMP 
CRLF 
SPACE 
TAD 
TAD 
TYPE 
SPACE 
SPACE 

CLA CLL CMA RTL 

DCA TSAVE4 

TAD I T8AVES 



TSAVE2 

TSAVE3 
TSAVE2 
K0H03 
TSAVE2 

TSAVE2 
STAPOT 
TSAVE5 
TSAVE3 

NOTSTA 



TSAVE3 
K0260 



NOTSTA, 



OCTEL 

ISZ 

ISZ 

JMP 

ISZ 

ISZ 

JMP 

JHP 



TSAVE5 
TSAVE4 
.•4 



PALlB V142A 23-FEB»77 91BS PAGE 1-57 
/CLEAR SOME COUNTERS 

/LOCATION OF DISK STATUS 

/CHECK RUN POINTER 
/DISK NOT RUNNING 

/SPACE OUT ONE 
/GET DISK NO, 



/SPACE OUT ONE 
/SPACE OUT ONE 

/COUNTER FOR FOUR WORDS 
/GET STATUS 
/TYPE IT 



PAGEI 0001 



T8AVE3 

TSAVEl 

CHKRES 

TPSTA 

/ 

TSAVEl, 
T8AVE2, 
TSAVE3, 
TSAVE4, 
TSAVE5, 
/ 

/ROUTINE TO RECALIBRATE SELECTED DRIVE 
/DISCONNECT DRIVE ON ERRORl 
/ 
RE9T0R, 

AND K0006 

OCA TPSTA 

TAO K7r00 

OCA TIMER2 

ISZ TIMERl 

JMP ,.1 

ISZ TIMER2 

JMP ,>3 

TAD TPSTA 

LDCMO 

CLA CLL CML RTL 

CLRALL 

08KSKP 

JMP ,.1 

RDSTAT 



/UPDATE DRIVE NUMBER 



/MORE TU REPORT 
/EXIT 



/SAVE DRIVE NUMBER 
/SETUP COUNTER 

/WAIT FOR DISK TO COOL QFH 

/CURKtNT DRIVE 

/LUAU COMMAND 

/ENABLE RECALIBRATE BIT 

/"RECALIBRATE" 

/DISK SKIP lOT 

ZUAIT FOB FIRST DONE FLAG 

/KEAU STATUS 



/NKee/RKIL DATt RELItBILITr PRUERIM) HU.e*.DHRKC-H 



P»I.»B Vl«2« 83.FEb-77 



9IB5 



fiGEi eaaz 



3172 
307] 
3274 
3I7S 

3176 
3BT7 
3>tR 
3181 
3U2 
3113 
3te4 

3ies 

3186 
3107 
3110 
3111 
3112 
3113 
3114 
311! 
3116 
3117 
3120 
3121 
3122 



3131 
3132 
3133 
3134 
3135 
3136 
3137 

3140 

3141 



3142 
3143 



7300 
S311 
0076 
7640 
S311 
4494 
1016 
1200 
44S1 
4490 
9303 
4447 
1073 
76S0 
9692 
7300 
4446 
0003 
7900 
4497 
4497 
4499 
3174 
4430 
9692 



3123 0000 

3124 2340 

3129 5723 

3126 2341 

3127 9723 

3130 4576 



0000 

7300 
1331 
4407 
4436 
7402 
5332 

0000 
0000 



0000 

4499 



SHi 
JMF 
«ND 
SZ4 Ct« 

JMP 
REST*, CLR4LL 
T»D 
T«0 
LDCHD 
OSKSKP 
JMP 

RDSTtT 
T»0 

•Nt CL« 
JMP I 
RE8ERR, CLt CLU 
ERROR 
0003 
7900 
CRLP 
CRLF 
PRNTER 
MEI19 
DKCON 
JMP I 



REIERR 
K1777 



K0200 
TPST4 



/DUNE FL«G SETT77J 

/NO, ERROR 

/M«SK OTHER ERROR BITS 

/»NY SETtT7T 

/rtS, ERROR 

/CLE4R 9T4TUS 

/ENAbLE SET SECOND DONE FLAG 

/ORIGINAL COMMAND 

/LOAD COMMAND 

/DISK SKIP lOT 

/WAIT FOR SECOND DONE 

/READ STATUS 

/RAS IT ONLY DONE FLAG 
/YES, RETURN 



/PRINT'RECALIBRATE ERROR DISCONNECT" 

/DISCONNECT DISK 
/MDRE DISK AVAILABLE 



/ROUTINE TO TIME AND MAIT 

/ 

TIME, 

IBl TIMERl 

JMP I TIME 

ISZ TIMER2 

JMP I TIME 
INTERl, JMS I BBHLT 
/ 

/ROUTINE TO COMBINE ERROR HALTS. 
/WHEN THE COMPUTER HALTS THE AC 
/HILL KBUAL THE PC ON THE FAILING 
/HALT INSTRUCTION, 
/ 
BIGHLT. 

CLA CLL 

TAD BIGHLT 

CLASIC 

CSERR 
BIGSTP, HLT 

JMP ,.» 
/ 

TIMERl, 
TIMER2i 
/ 

/ROUTINE TO TYKE OUT DATA INFORMATION 
/ 
TYPDAT, 

PRNTER 



/EXIT 

/EXIT 

/NO INTERRUPT OCCURRED, I SUESSI 



/LUAU AC WITH PC. 
/CHECK FOR CLASSIC. 
/ROUTINE TO EXECUTE. 
/AOPC. 
/NON-RCCOVERABLE, 



/PRINT "ASI" 



/RKSE/RKSL DATA RELIABILITY PRUGRAMI HU.0«.DHRKC-H P»L1B V142A 23-FEB>77 
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PAGE! 0063 



3144 


3235 




TEXAS 




3149 


1131 




TAD 


ASREG 


3146 


4496 




OCTEL 




3147 


7340 




CLA CLL 


CMA 


3190 


4495 




PRNTER 




3191 


3237 




TEXNA 




3192 


1132 




TAD 


RAREG 


3193 


4456 




OCTEL 




3194 


7340 




CLA CLL 


CMA 


3199 


4459 




PRNTER 




3196 


3241 




TEXAD 




3197 


1133 




TAD 


ADREG 


3160 


4456 




OCTEL 




3161 


7340 




CLA CLL 


CMA 


3162 


4459 




PRNTER 




3163 


3243 




TEXDG 




3164 


1134 




TAD 


OGREG 


3165 


4496 




OCTEL 




3166 


7340 




CLA CLL 


CMA 


3167 


4455 




PRNTER 




3170 


3245 




TEXDB 




3171 


113! 




TAD 


DBREG 


3172 


4456 




OCTEL 




3173 


5742 


/ 
MES19, 


JMP I 


TYPDAT 


3174 


2205 


TEXT 


'recal: 


3175 


0301 








3176 


1411 








3177 


0222 








3200 


0124 








3201 


0540 








3202 


0522 








3203 


2217 








3204 


2240 








3205 


0411 








3206 


2303 








3207 


1716 








3210 


1605 








3211 


0324 








3212 


4100 


/ 
TEKPC, 






3213 


2003 


TEXT 


"PCI" 


3214 


7200 








3215 


2324 


TEXST, 


TEXT 


"STI" 


3216 


T20B 








3217 


0530 


TEXEX, 


TEXT 


"EXI" 


3220 


7200 








3221 


0315 


TE«CM, 


TEXT 


"CMI" 


3222 


7200 








3223 


1101 


TEXIA, 


TEXT 


"lAI" 


3224 


7200 








322! 


0401 


TEADA, 


TEXT 


"DAI" 


3226 


7200 








3227 


0301 


TE«CA, 


TEXT 


"CAI" 


3230 


7200 









/PRINT "RAI" 



/PRINT "AOI" 



/PRINT "DGI" 



/PRINT "DBI" 



RECALIBRATE ERROR DISCONNECT! ■ 



/RKSt/RKSL DAT* RELItBILITT PRUGNtni liU-tia-DHRKC>H 



piLi* Vine* 83.rtB-7r 



ptGi i>6e 



P«GEt Be** 



3231 
323i 
3233 
32311 
3235 
3236 
323T 
3240 
32<l 
3242 
3243 
3244 
324S 
3246 

3247 
3230 
32St 
32Sa 
3293 
329* 
3299 
3296 
3297 
326« 
3261 
32t2 
9263 
3264 
3269 
3266 
3267 
3270 
3271 
3272 
3273 
3274 
3279 
3276 
3277 
3300 
3301 
3302 

3303 
3304 
3309 
3306 

3307 
3310 
3311 
3312 
3313 
3314 
3319 



2703 

7200 
0627 
7200 
0123 
7200 
2701 
7200 
0104 
7200 
0407 
7200 
0402 
7200 

2205 

0104 
4023 
2401 
2429 
2300 
2722 
1124 
0940 
2324 
0124 
2523 
0000 
2209 
0301 
1411 
0222 
0124 
0940 
2324 

0124 

2923 

0000 
0411 
2313 

4004 
0124 
0100 

4009 
2222 

1722 
0000 
2213 
7009 
5722 
1370 
1440 
0401 
2401 



TEXKC, TEXT 

TE«F«, TEXT 

TEXAS, TEXT 

TEXUt, TEXT 

TEXAD, TEXT 

TEXDS, TEXT 

TEXDB, TEXT 



/ 

ERTXl, 



/ 

MEI0, 



MESl, 



TEXT 



ERTX2, TEXT 



ERrX3, TEXT 



"rwi" 

"W«l" 
"»BI" 
"OBI" 
"DBI" 

"READ (TtTUB" 



"KRITE »T«Tua" 



"RECALIBRtTE BTtTUS" 



ERTX4, TEXT 



TEXT 



"OI»K D*T«" 



ERROR" 



TEXT "HK»E/RK8L 0«T» RtLI«BItITY" 



/RHet/RKBL 0»T« RELZ4BILITT fRUGRtni nO.BB.DHRKC-H 



PILIH V1424 23>FEB-77 



P4BE 1>61 



3316 
3317 
3320 
3321 
3322 
3323 
3324 
3329 
3326 
3327 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3360 
3361 
3362 



P46EI 00(5 



4022 

0514 
1101 
0211 
1411 
2431 
0000 
0530 
0522 
0311 
2305 
0000 
4004 
1123 
1300 
1617 
1659 
2205 
0317 
2605 
2201 
0214 
0540 
0000 
0530 
2405 
1604 
0504 
4022 
5727 
4015 
0515 
1722 
3150 
6055 
6791 
7700 



HEI2. 



HEi3, 



TEXT "tXEHCISE" 



TEXT " DISH" 



ME»4, TEXT "NDN-RECOVERABLE " 



ME85i TEXT "EXTENDED R/W HENDRY ta-7) I" 



3363 

3364 

3365 
3366 
3367 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3400 
3401 
3402 



0103 
0305 
2024 

4015 
1704 
0577 
0000 
0423 
1340 
1001 
2204 
«B23 
1706 
2440 
0317 
1520 



MES6. TEXT 



MES7, TEXT 



"ACCEPT MDOET" 



'D5K H«HD SDFT CUHP" 



/RKSt/RKat D<T< neLZiaiLITr PRUGRtMl nU-iia-OHRKC-H 



l>»t>» VU2« 23-FtB.r7 



PAGEI es*k 



3403 


0000 


3«e4 


0611 


340! 


0514 


34B6 


0477 


3487 


0000 


3410 


2422 


34U 


0103 


3412 


1377 


3413 


0000 


3414 


0530 


3415 


2422 


3416 


0140 


3417 


2305 


3420 


0324 


3421 


1722 


3422 


2377 


3423 


0000 


3424 


0214 


3429 


1703 


3426 


1340 


3427 


1405 


3430 


1607 


3431 


2410 


3432 


7700 


3433 


8401 


3434 


2481 


34JS 


7700 


3436 


8122 


3437 


8548 


3440 


311T 


3441 


2540 


3442 


2325 


3443 


2205 


3444 


7700 


3445 


4084 


3446 


1123 


3447 


8317 


3450 


1616 


3451 


8383 


3452 


2485 


3453 


8441 


3454 


0080 


3455 


2331 


3456 


2324 


3457 


0515 


3460 


4823 


3461 


1825 


3462 


2448 


3463 


0417 


3464 


2716 


3465 


5440 


3466 


1617 


3467 


4804 


34T0 


1123 


3471 


1323 



HESe, TEXT "riELDT" 

MES9, TEXT "TK«CK7" 

MES10, TEXT "EXTRA SECTORST" 

HE011, TEXT "BLOCK tENGTKT" 

Hesi3, TEXT "OtTAT" 

I1E614, TEXT "ARE TOU »UREt" 

MES15, TEXT ' DKCONNECTEDI" 

HEai6i TEXT "STSTEM 3HUT DDMN, NO Uiaxa TO RUN|" 



/RKat/RKaL DATA RELIABILITT PRUGRAMI HU>Ba>DHRKC-H 
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PAGEI 0887 



3472 


4024 








3473 


1740 








3474 


2225 








3475 


1641 








3476 


0000 








3477 


0411 


ME»17, 


TEXT 


•0I8K " 


3580 


2313 








3501 


4000 








3502 


4020 


HEBIB, 


TEXT 


" PAaS COHPLETEl 


3583 


0123 








3584 


2340 








3505 


0317 








3506 


1520 








3507 


1405 








3510 


2405 








3511 


4100 


/ 






3512 


0008 


DSK0B, 


8 




3513 


0000 


DBKIB, 







3514 


0000 


DaK2B, 


8 




3515 


0000 


DaK3B, 







3516 


0008 


D8K4a, 







3517 


0000 


08R5B, 







3520 


0888 


0»K6B, 


8 




3521 


0880 


DaK7B, 
1 


a 




3522 


0000 


DBTMl, 


8 




3523 


0808 


DlTHl, 


8 




3524 


8800 


D2TH1, 


8 




3525 


0800 


D3TM1, 


8 




3526 


0800 


04TM1, 







3527 


0000 


D5TM1, 







3530 


0000 


D6TM1, 







3531 


8000 


07TM1, 







3532 


0008 


D8TM2, 


8 




3533 


0080 


D1TM2, 


8 




3534 


0000 


02TM2, 


8 




3535 


0008 


03TM2, 


8 




3536 


0808 


B4TM2, 


8 




3537 


8808 


05TM2, 


8 




3540 


8080 


D6im, 


8 




3541 


0808 


D7TM2, 

1 

O0HRO, 







3542 


8000 







3543 


0800 


D0aoP, 







3544 


0080 


O0CMP, 


8 




3545 


0000 


DinRD, 







3546 


0000 


D180F, 







3547 


0000 


D1C"P, 







3550 


0008 


D2MBD, 







3551 


0800 


D2S0F, 







3552 


0880 


D2CMP, 


8 





/RKet/RKeL 0»T* HtLltBJLITr PRUUHAMl MU-BB-OMRKC-H P»Lt«l llDiH 23-FtS-77 9105 PAGE l-ba P»GEI Mti 

iiij eeee dihhd, e 

3954 aeeg DJaor, e 

3955 eaea djchp, e 

3556 Mte DtHRD, e 

3557 eeee d490F, e 
356(1 00ae oacMP, n 

3561 aeee dshrd, e 

3562 aiieg dssof, e 

3563 taee d5cmp. e 

3564 ei»t D6HRD, 

3565 eB0e D6(0F, e 

3566 eege D6Cnp, e 

3567 Baee d7hrd, e 
3STe eeei 0790F, e 

3571 etee 07C"p, » 

3572 etee FtaFLG> e 

3573 geze TPKFLG, e 

3574 zese 9ECFLG, ^ 

3575 BBSB HLFFLGf e 

/ 
/ 
/ 

36ee PAGE 

/ 

36ee STKSUF'. 

/ 
>sts 
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BBM iiiiiiu iinuii iiuiui iiiiuii iiiiiui muiM mum immi 

BIBB mum mum niiun uuuu uuiuj ululll luluu uulHJ 

B2BB UUUU UUtUl UUUU UUUU UUUU UUUU UUUU UUUU 

aJBB UUUU uuiui UUUU UUUU UUUU uiiuu uuiiil iniWu 

mi lili'H' '"»"" iiHiui UUUU UUUU UUUU uuuu uuuu 

aSBB uuuu uuiui lumn uuuu uuuu uuuu uubbbb buIuu 

e68B uuuu uuuu uuuu uuuu uuuu uuuu uuuu uuuu 

BTBB UUIUI nuiui UUIUI uiuui uului luiuu ululu uJuul 

!?SS JJIJ'J" uuuu uuuu uuuu uuuu uuuu uuuu uuuu 

iiBB uuuu luuiii uuuu UUUU nnuii uuuu uuuu lUuiu 

ijBB uuuu UUIUI uujui uiuui uuuu uuuu uuuu uuuu 

15M umiu uuuu uuim uuuu uuuu iiluiu luulu uluul 

14BJ uuuu uuuu xuuui uuuu uuuu uuuu uuuu uuuu 

isaa UIUUI niinii iuiini uiuui uului uuuu luulu iJbbIiII 

ijBB uuuu uuuu uuuu UUUU uuuu lUUtU lUUUl uuuu 

irBB uuuu uunu mum uuuu uuuu luulu uuuu uuull 

»?SS !il!'!i' """" UUIUI uuuu luuiu iuuiu uuuu UUUl\ 

21BB uuuu uuuu lUlUU UXUUl UUUU U\UIU UUUU UIBIUI 

«Ba uuuu uuuu uuuu uuuu uuuu uuuu uuuu VUUUl 

2JI9B UIUUI uuuu uuuu UUUU luuiu utuui uuuu uuuu 

24BB luuui uuuu UUUU luuui UUUU UUUU UUUU uuuu 

25BB uuuu uuuu UUUU lUUUl UUUU UIUUI UlBBBBe BBBBUU 

"BB UIUUI uuuu uuuu UUUU UUUU UUUU uuuu uuuu 

JTBB lUiuu uuuu uuuu UUUU uuliu uuuu uuuu uului 

5?SS Ml!!!!! 1'""" niuui uuuu uuuu UIUUI UIUUI uu\ui 

31BB uuuu UUIUI uuuu UUUU UUUU UUUU UUUU UUUU 



32BB 
33BB 



uuuu uuuu \uuui uuuu uuuu uuuu inuui uuuu 

uuuu uuuu uuxui uuuu uuuu uuuu uuuu uuuu 

3«BB uuuu Ul\UU UIUUI UUUU uuuu uuuu uuuu UUUU 

i!BB UUIUI uuuu uuuu UUUU UUUU UUUU uuuu UUUBB 

36021 

}70e 



PAGEl 0089 



/»KSt/RK«L 0»T» NELIABILITT PHUSWiMI MU.B8»DHRKC»H 



PAGEi ee9e 



40ee 



45ee 



a«ea 



«tac 



Hit 

sue 



Siee 

siee 



saes 
sses 



stes 

S7Be 



ke00 

6iee 



b2Be 

k]ee 



baee 
tsee 



6780 



7iee 



rzae 

nee 



raee 
rsee 



Ttee 
Tree 



/»mt/Hmu D»T« KEtlABILITt PHUGR4MI HU.Ua-DHRKC-H 



teire 


0750 


terrs 


0071 


»70Br 


0072 


tcoc* 


03k2 


»CL 


7701 


iCStVE 


isas 


aOREG 


0U3 


tERROR 


21S6 


aeaiN 


iia» 


ALiaGN 


0I9S 


AMOUNT 


00k0 


ARTS 


^^^^ 


ASKNXl 


03«5 


A9KNX2 


0406 


aSKNX] 


eais 


ASKNXS 


0a»a 


ASKSUR 


0513 


A8REG 


0131 


AUTOte 


0010 


AUTOlt 


0011 


AUT0I2 


0012 


BADHLT 


1707 


BGHLT 


Bl7a 


BGN 


0200 


BGNBUF 


Biaa 


BIGHLT 


3131 


BIG8TR 


3136 


8RKRET 


0363 


BUfRNT 


1«00 


BUPTAL 


0117 


BVRETR 


0506 


casri 


0230 


CBBV2 


1300 


CBBVS 


1061 


CBBYa 


051! 


CSBYS 


1116 


CaCHAR 


1075 


CSCKP 


1022 


cacKPA 


aaae 


CBCKSU 


8425 


C6CNTR 


4427 


C6C0NT 


1145 


CBCRUF 


4433 


CBDOl 


0310 


CtDOie 


1262 


CtDOll 


0607 


C«D02 


1033 


ceoos 


0350 


caooa 


1006 


CaD07 


0527 


CBECHO 


4434 


CBERR 


4436 



CSGET 


0k<4 


CBHANG 


ll«i 


CaiNQU 


4437 


CBOCTA 


4432 


CBRAaS 


4424 


CBRAUS 


4441 


CaPRNT 


4430 


CaRDRS 


0666 


CBRETO 


0614 


CaRETR 


0536 


CaSETD 


0613 


casETa 


0535 


caauiT 


4431 


C88M8T 


0745 


caTMPi 


1021 


CaTTYI 


4426 


CaTYPE 


4435 


C4F 


6007 


CAREG 


0126 


CCNTRl 


2757 


CHANG 


2730 


CHANGR 


2742 


CHEK22 


0523 


CHK22 


4424 


CHKCLA 


1200 


CNKPOT 


2060 


CHKREa 


3012 


CHKSAV 


0141 


CHKYN 


2035 


CHNCDF 


22»4 


CHNHtT 


2755 


CHNPOT 


2760 


CKCOUT 


0232 


CKTIM 


2450 


clafld 


1404 


GLAaiC 


4407 


CLA8IK 


1514 


CLDR 


0560 


CLKCNT 


0150 


CLRALU 


4454 


CtRBAK 


0175 


CLRTRN 


1315 


CHPPOT 


2562 


CMREG 


0123 


CNTRLC 


0S51 


CNTRLD 


0600 


CNTRLE 


0545 


CNTRLL 


0537 


CNTRLO 


0500 


CNTRLR 


0511 


CNTRia 


0521 


CNTVAL 


02:>2 



PAL10 
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CONCUR 


0715 


0AT3 


0760 




CONStC 


0147 


0AT4 


0761 




CONSUL 


0000 


DAT5 


0762 




CRCCNT 


01SS 


0AT6 


0763 




CRC'tG 


BtSt 


DAT7 


0764 




CRLF 


44S7 


OATa 


0765 




O0C"P 


3944 


DAT? 


0766 




D0HRU 


3542 


D4TFLS 


0157 




U03OF 


3543 


DATPOT 


0151 




D0TH1 


3522 


OATTRY 


0140 




P0TM2 


3532 


DBRES 


0135 




UlCP 


3547 


DCLR 


6742 




BlMRu 


3545 


DGREG 


0134 




uiaot 


3546 


DISCON 


4430 




OlTMl 


3523 


DISKBO 


4441 




DlTMi 


3533 


DtAG 


6743 




U2C«P 


3552 


OLCA 


6744 




U2HRU 


3550 


OLOC 


6746 




D2S0P 


3551 


DISC 


6740 




02TM1 


3524 


OOCNT 


0247 




Oitm 


3534 


DOHEAO 


1262 




U3CHP 


3555 


DONEA 


0426 




D3HRU 


3593 


OOPACK 


0212 




D380F 


3554 


D08ET 


0251 




D3TM1 


3525 


0R8T 


6745 




D3TH2 


3535 


O8K0B 


3512 




D4CMP 


3560 


DSKIB 


3513 




U4HRU 


3596 


0aK2B 


3514 




uaaar 


3957 


D8K3B 


3515 




U4TNI 


3526 


[)8K4B 


3516 




D4TN2 


3536 


OaKBB 


3517 




USCHH 


3563 


D8K68 


3520 




U5MRU 


3561 


- DSK7B 


3521 




D580F 


3362 


OBKEX 


2302 




D5TM1 


3927 


08KG0 


2200 




U5TM2 


3537 


OSKP 


6741 




U6CNP 


3566 


OaKBKP 


4450 




D6NMU 


3564 


DTCHK 


1600 




D630^ 


3565 


UTRl 


1636 




06711 


3930 


DUMP 


2637 




06T«i 


3940 


ENDIT 


0742 




U7C«>' 


35M 


ERFI.G 


0165 




D7MRU 


3967 


ERHLT0 


0556 




oraoF 


3570 


ERHLT2 


0563 




U7T"1 


3931 


EHHLT3 


2561 




U7TH2 


3941 


ERHL75 


2544 




UAREU 


0125 


ERMLT6 


0947 




DATl 


0756 


ERRl 


0736 




OATIU 


0767 


ERRMtS 


1320 




U<T11 


fOTTIi 


ERRD 


1200 




OtTU 


inn 


ERROEX 


1355 




UATi 


0797 


ERROR 


4446 
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ERTXl 


32<I7 


ERTX2 


3855 


ERTX3 


3ik4 


ERTX« 


3iT6 


ESiVE 


uri 


EX4RTS 


8151 


EXIT 


1584 


EXIT* 


e4«e 


EXRCC 


1)122 


EXTICK 


llfc6 


FlOPl 


ae2i 


F10P8 


se22 


nswR 


0920 


rXLCNT 


ie«e 


FItUER 


U37 


PIULUP 


B717 


riRTIM 


BITB 


FLDFLS 


3572 


FLDHtT 


0206 


FL>«VE 


1347 


FNDSUM 


0142 


FORIN 


4433 


FROCT 


1426 


FWREG 


0130 


GCNOtT 


4426 


GETCHl 


0703 


StTO*T 


0456 


GNDAT 


1737 


GOB<K 


2230 


GOCOF 


1646 


GOCHK 


2265 


GOCLR 


2260 


GOIT* 


0443 


GOTIT 


1010 


G0TC3* 


0454 


GTF 


6004 


MEOT»D 


1376 


HLFFLG 


3575 


INDEX* 


0455 


INERR 


2426 


INHODE 


1076 


INTCH 


0136 


INTO* 


0124 


INTERl 


3130 


INTER2 


2362 


IOT0 


0554 


lOTl 


0752 


I0T2 


0561 


I0T3 


2557 


IOT« 


2551 


I0T5 


2542 


I0T6 


0545 



K000t 


0061 


K0003 


0062 


K0004 


0013 


K0006 


0063 


K0007 


0064 


K0010 


0065 


K0B17 


0066 


K0070 


0014 


K0B77 


0102 


K0t00 


0015 


K0200 


0016 


K0212 


1425 


K0215 


1424 


K0240 


1512 


KB260 


0067 


K0277 


0070 


K0316 


2057 


K033t 


2056 


K0400 


0017 


K10B0 


0075 


K177 


2034 


"1777 


0076 


K3740 


1513 


K4000 


0073 


X4100 


0074 


K54B5 


0360 


K6S00 


0541 


K652e 


2172 


K7000 


21S5 


K7377 


2154 


K740B 


0104 


K77B0 


0077 


K7760 


0100 


K7773 


1377 


K7775 


0110 


K7777 


0101 


KAERRO 


0023 


KCDF 


0103 


KROT 


0250 


KSKP 


0546 


KTICK 


4425 


KTIME 


0530 


LAS 


4406 


L0*0 


2554 


LOtDD 


4453 


LDC* 


2550 


LOCN 


0542 


UDCMO 


««5l 


LDCUR 


4452 


LNKDC* 


0361 


LOOGO 


2330 


Hie 


0107 



«12 


0105 


H4 


0106 


MANUAL 


0322 


MAXfLO 


0143 


MAXTIH 


0144 


MAXTKK 


0145 


MEWStT 


2142 


MESIO 


3303 


ME91 


3307 


HES10 


3414 


nESlI 


3424 


nESli 


3433 


liESU 


3436 


HEaia 


3445 


tlESlb 


3455 


HE817 


3477 


HE916 


3502 


MESIS 


3174 


ME»2 


3325 


MES3 


3332 


ME84 


3335 


MESS 


3346 


MES6 


3363 


iies7 


3372 


MESS 


3404 


MESI 


3410 


MESA 


0747 


MESAC 


1333 


MESFL 


1341 


MESM4N 


1146 


HESMU 


1316 


MESPAS 


0253 


nesPc 


1330 


nODSKS 


2125 


nOA 


7501 


nuL 


7421 


nosAvE 


1346 


HRPRN 


1456 


NSKEK 


1714 


MYAC 


1317 


MYl.*a 


1546 


NEHRU 


0727 


NEXT 


0261 


NODSRP 


2353 


NOOSKS 


2702 


NOCRH 


1672 


N08ET 


0242 


NOTEX 


1963 


NOTST* 


3041 


NTCLAS 


1270 


NTERH 


1255 


NT80PT 


1251 



n 
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NTWHKS 


1710 




OCT! 


2400 




0CT4 


2430 




OCTEL 


4456 




ONEIN 


4432 




DPI 


0021 




0P2 


0022 




OPRTAL 


0116 




PASCNT 


0250 




PCLF 


6662 




PCNTRl 


1373 




PCNTR2 


1374 




PCNTR3 


1375 




PCREG 


0120 




PCSAVE 


1344 




PNTBUF 


1120 




POLDSK 


0115 




POLNEX 


1000 




PREXIT 


2635 




PRINT 


2620 




PRN 


1450 




PRNOAT 


0173 




PRNTER 


4455 




PSIE 


6665 




PSKE 


6663 




P8KF 


6661 




PSTb 


6664 




PT8T0R 


0336 




RADl 


1773 




RAD2 


1774 




RAD3 


1775 




RANI 


1767 




RAN2 


1770 




RANDAT 


4427 




RANDOM 


1715 




RANGEN 


4440 




RANJMS 


0522 




RDLHRU 


2324 




ROST 


2541 




RD8T* 


U05 




RDSTAT 


4447 




ROTRY 


1073 




REALPC 


1316 




RECAL 


4443 




RECDF 


2605 




RECEIV 


4444 




REOOA 


0415 




REFILL 


0723 




REREAD 


1063 




RERUN 


1124 




RESERR 


3111 




RESRAN 


4442 
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RESTA 


3077 


RESTOR 


3052 


RETRN 


2331 


RETURN 


2304 


REWRT 


1047 


RNFLO 


0630 


RNWRD 


2600 


ROUINS 


1302 


ROUTMP 


1544 


RSRAN 


1761 


RUN 


0600 


RUNPOT 


0154 


SAVl 


1771 


8AV2 


1772 


SAVAC 


0166 


SAVCM 


0174 


SAVEl 


0400 


SAVEAC 


1545 


8DKP 


0751 


SECFLG 


3574 


SELCHK 


4436 


8ETFLD 


4435 


SETGEN 


4434 


SETREG 


1553 


SETUP! 


1233 


8ETUP2 


0225 


5KPN0P 


0237 


SOFT 


1245 


8PAC 


1506 


SPACE 


4431 


SPBLK 


0164 


SPFLD 


0160 


SPSEC 


0163 


SPTRKl 


0161 


3PTRK2 


0162 


STAPOT 


0153 


STATER 


2337 


STATRY 


0137 


STATUS 


231! 


STFLD 


2703 


STGEN 


1753 


STPHLT 


0603 


STRAUT 


1325 


STRBUF 


3600 


STREG 


0121 


STRREL 


U51 


STRTEX 


0224 


STRHRK 


2241 


SVLNX 


0167 


SWDAT 


2601 


SWR 


0020 


TABL* 


0461 



TABLB 


0471 


TEXAD 


3241 


TEXAS 


3235 


TEXCA 


3227 


TEXCM 


3221 


TEXDA 


3225 


TEXDB 


3245 


TEXDG 


3243 


TEXEX 


3217 


TEXFH 


3233 


TEXIA 


3223 


TEXPC 


3213 


TEXST 


3215 


TEXWA 


3237 


TEXHC 


3231 


TIME 


3123 


TIMERl 


3140 


T1MER2 


3141 


TIMER3 


2374 


TIMPOT 


0152 


TMPCNT 


0746 


TPSTA 


3000 


TRASHl 


Bin 


TRASH2 


0112 


TRA8N3 


0113 


TRDONE 


2365 


TRKFLG 


3573 


TRYCNT 


0171 


TRYTIM 


1060 


TSAVEl 


3045 


T8AYE2 


3046 


T8AVE3 


3047 


TSAYE4 


3050 


TSAVE5 


3051 


T8TCHA 


0715 


TTYLPT 


1121 


TYPDAT 


3142 


TYPE 


4445 


UPAROkl 


0615 


UPDATE 


0114 


UPONt 


1414 


UPTRY 


1120 


KAIT 


2000 


HAITI 


2026 


HAREG 


0132 


laASRD 


2264 


HATMES 


0651 


HCREE 


0127 


HROCHK 


1612 


HRKODN 


2274 


XCBCKP 


1041 


XCeCNT 


0400 



XC8CKL 


1023 


XCSECH 


1063 


XC6EKR 


1207 


XCeZNU 


0635 


xesocT 


1000 


xcbpas 


0200 


XC8PAU 


0337 


XC8PNT 


0303 


XC8PSH 


0656 


XCSSM 


0262 


XCBTTY 


0272 


XCBTYP 


1B77 


XCHK22 


0024 


XCHKTN 


0037 


XCKPUT 


0036 


XCLAS 


0007 


XCLUK 


0054 


XCRUI' 


0057 


XDOLPT 


1112 


xeosw 


0520 


XDSKUO 


0041 


XOUMP 


0050 


XERRU 


0046 


XFROCT 


0056 


xgndat 


0026 


XKTCK 


0025 


XKTICK 


1154 


XLA8 


0006 


XLOAU 


0053 


XLDCA 


0052 


XLDCn 


0051 


XQCTl 


0032 


X0CT4 


0033 


XPRINT 


0045 


XPRN 


0055 


XROST 


0047 


IREG 


1372 


XHtSTB 


0043 


XRNOUM 


0040 


XRNMKO 


0027 


XRSRaN 


0042 


XSDKP 


0030 


XSPAi: 


0031 


XSTf LU 


0035 


XSTGtN 


0034 


XTASLA 


0457 


XTABLB 


0460 


XTE'T 


0172 


x««n 


0044 


YtSNU 


4437 
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ERRUR8 DETECTEOI e 
LINKS EENERtTEDI 163 
RUN-TIMEI 6 SECONDS 
IK CORE USED 



